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In Out 
11 12 
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50 



NATURAL 
LANGUAGE 
PROCESSOR 
(1 of N) 



10 
40 



Input/ 
Output 
Port 



NON-TEXTUAL 

LANGUAGE 

PROCESSOR 



42 

_L 



VIDEO 

DISPLAY 

TERMINAL 



44 



EXTERNAL 
APPARA- 
TUS 



4-> 



SELECTOR 



60 



SELECTOR 



125 



4~> 



SELECTOR 



6609091 



80 



110 



ADJECTIVE 
AND STATE 
ABSTRACT 
-> NOUN STATE 
REPRESEN- 
TATION 
MEMORY 



150 



90 



4 ► 



CONCRETE 
NOUN STATE 
REPRESEN- 
TATION 
MEMORY 




100 

_L 



CLAUSAL 
ABSTRACT 
NOUN AND 
CLAUSE 
STATE 
REPRESEN- 
TATION 
MEMORY 



120 

_L 



CONTEXT 
MEMORY 



4 — ► 



ADJECTIVE & 

STATE 

ABSTRACT 

NOUN 

PURPOSES 



4-+ 



140 



4-* 



PURPOSE 
IDENTIFIER 



4-> 



170 



PLAUSIBILITY 
AND 

EXPECTED- 

NESS 

CHECKER 



130 



4—> 



CLAUSAL 
ABSTRACT 
NOUN AND 
CLAUSE 
PURPOSES 



4-* 



EXPERIENCE 
AND 

KNOWLEDGE 
MEMORY 



APPLICATIONS 



4-+ 



160 



COMMUNICA- 
TION 

MANAGER 



FIG. 1 



12 



WORD 
ISOLATION 
STEP 12 



14 



DICTIONARY 
LOOK UP 
STEP 14 



16 



SYNTAX 
PARSE 
STEP 16 



18 



DICTIONARY 
LOOKUP 
STEP 18 



22 



FUNCTION 
WORD 

PROCESSING 
STEP 22 



24 



MORPHOLOGICAL 
PROCESSING 
STEP 24 



26 



ELLIPSIS 
PROCESSING 
STEP 26 



200 



TEXT 

GENERATION 
STEP 200 



30 



SYNTAX 
PARSE 
TREES 30 



20 



DICTIONARY 
20 



28 
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ENTRY 
NUMBER 


STATE REPRESENTATION 
ADDRESS 


SET OF BASE WORD 
ENTRIES 


Word sense 
number 


Address of data structure 
of the word sense 
number 


Dictionary 20 base word 
entries implying the word 
sense number 



FIG. 3B 



TEXT OF AFFIX 
OR INFLECTION 


REPRESENTATION 
NUMBER 


Text 


Affix code or 
inflection code 



FIG. 3C 



AFFIX 
CODE 


AFFIX 
DEFINITION 


INFLECTION 
CODE 


INFLECTION 
DEFINITION 


Number 


Address descriptor, a 
set of morphological 
codes, or the part 
of speech of the 
wordset 


Number 


Inflection function 
code 



FIG. 3D 



SOURCE PART 
OF SPEECH 


SET OF DESTINATION 
PARTS OF SPEECH 


AFFIXES 


Part of speech 


One or more destination 

pallS Ul o|JCCON ICCILfiICU 

with associated affixes 
added to the source 
part of speech 


Set of affix definition 

nnintprc associated 

with a destination 
part of speech 



FIG. 3E 
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1600 

I 

Current-word = 1 st word of the 
sentence; 

Current-Clause = Current-Word's 
clause; 



1669 



1601 



Current-Wordset = Next 
unprocessed word set; 



Add phrases of 1603 to 
Next-Phrase-Set; 



T If 
^ ^ Current-Word has 



Current-Wordset = 1 st 
word set of the 
Current-Word; 



1668 



Current-Phrase-Entry = 
next unprocessed entry in 
Current-Phrase-Set; 



FIG. 5A 






Inform the Communication 
Manager of a parser error; 





1678 
r I 


* 


Store Current-Phrase-Set; 

Current-Phrase-Set= 

Next-Phrase-Set; 




1679 
r I 


Current-Phrase -Entry = 
1st entry of the 
Current-Phrase-Set; 




1680 



At-Coordination = True; 
Precedes-Coodination = True; 
Store type of coordination 
indicator at each entry in 
Current-Phrase-Set; 
Mark the conjunction 
word set; 



1686 

_L 



Current-Wordset= Next 
unprocessed wordset: 
Next unprocessed 
Current-Phrase -Entry = 
1st non-appended entry in 
the Current-Phrase -Set; 




Process Current-Phrase- 
Entry for completion; 
Add conjunction wordset 
to Next-Phrase-Set with 
a pointer to all 
completions; 
At-Coordination = True; 




"4- 




1663 



If the 
Current-Phrase-' 
r Entry can be completed 
and the Current- 
Wordset can start a 
phrase of certain 
clauses 



1688 



1664 




Process Current-Phrase-Entry' 

for completion; 

Add Current-Wordset to 

Next-Phrase-Set for each started 

phrase; 

Add pointers to Current-Phrase- 
Entry at each Next-Phrase-Entry 
which continues the 
Current-Clause; 

Add pointers to the phrase entry 
which precedes an added 
Next-Phrase-Entry which is in a 
clause other than the 
Current-Clause; 



Add Current-Wordset and 
a pointer to the Current- 
Phrase-Entry in Next- 
Phrase-Set for each way 
that the Current-Phrase- 
Entry can be continued; 
Add Phrase-End to the 
added Next-Phrase-Set 
entries as needed; 



Go to 
1665; 



FIG. 5B 



1621 



■D 

3 

G 



U 




Process Current-Phrase- 
Entry for completion; 
Add Current-Wordset to 
the Next-Phrase-Set and 
process for completion 
for each added entry; 
At-Coordination = True; 
The In-Clause- 
Coordination value of the 
Current-Phrase-Entry is 
set for each added 
Next-Phrase-Set entry; 




Add Current-Wordset to the 
Next-Phrase-Set; 
Process for completion and for 
continuing the Current-Phrase- 
Entry; 

For each added Next-Phrase- 
Set entry, set: 

At-Clause-Coordination = True; 
& In-Clause-Coordination = to 
value of Current-Phrase-Entry; 



Add Current-Wordset to Next- 
Phrase-Set for each such 
adverbial phrase; 
For each added entry, set: 
In-Coordination = True; & 
Adverbial-Coordination = True; 
Go to 1623; 



FIG. 5C 



1623 



1624 



1625 



Mark all subordinate 
clause starts which 
continue the main clause 
as 

Continuing-Subordinate- 
Clause-Start; 

Mark all other subordinate 
clause starts as 
Separate-Subordinate- 
Clause-Start; 




Current-Clause 
is 

computable 



1626 



Mark all main clause 
starts as Coordinated- 
Clause-Start; 



1627 



Mark all main clause 
starts as Interpolated- 
Clause-Start; 



Goto 
1634; 



For each clause start: Add 
Current-Wordset to 
Next-Phrase-Set including 
the marked information; 
For each added entry: set 
In-Coordination = True; & 
In-Clause-Coordination 
= True; 



FIG. 5D 



1634 



If the 
turrent-Wordsef 
r is incomplete and if the^ 
Current-Preceding- 
Clause is incomplete 
in the same way 



1635 



Addition-Preceding- 
Clauses = False; 



1636 



Add the Current-Wordsetto the 
Next-Phrase-Set for each phrase 
which continues the 
Current-Clause 

and the Current-Preceding-Clause; 
Include a pointer Id the Current- 
Phrase-Entry and the fast phrase 
entries of the Current-Preceding- 
Clause which are completable and 
which allow the Current-Wordsetto 
start a continuing phrase; 
For each added entry, set: 
Interpolated-Clause-Continuation = 
True; 

In-Coordination = True; & 
In-Clause-Coordination = True; 



1638 

If there 
are remaining 
entries added at 1636 
and if there is another clause 

preceding the Current- 
Preceding-Clause, and if that 
preceding clause is incomplete 
in the same way as the 
Current-Clause 



1640 



Current-Preceding-Clause 
= Next preceding clause; 
Additional-Preceding- 
Clauses = True; 



FIG.5E 



1643 




in 



Add the Current-Wordsetto 
the Next-Phrase-Set for each 
way that the Current-Wordset 
can continue the 
Currerrt-Phrase-Entry; 
Include a pointer to the 
Current-Phrase-Entry; 
For each added entry: 
In -Coordination = True; 



1644 

If the 
Current-Phrase- 
Entry is a completed 
adverbial phrase without a 
succeeding modrfiee and the 
Current-Wordset can 
start a noun 
phrase 



1646 



Add an entry to the Current- 
Phrase-Set for each way the 
Current-Phase- Entry can be 
completed; 

Add the Current-Wordset to 
the Next-Phrase-Set for each 
started phrase including a 
pointer to entries added to the 
Current-Phrase-Set; 
For each added entry: set 
In-Coordination = True; & 
Adverbial-Coordination = True; 



^ 1651 
If the ^ 
r Current-Phrase- 
Entry is completable 
and the Current-Wordset 
can start a phrase which 
continues a clause in 
the sentence 



1653 



Process each completable 
phrase for completion; 
For each continuing phrase 
start: Add the Current-Wordset 
to the Next-Phrase -Set with a 
pointer to each completion 
which has its clause continued; 
For each added entry: set 
In-Coord (nation = True; 



1647 



If 



Current-Phrase- 
' Entry is a completable 
noun phrase and the 
Current-Wordset starts 
an adverbial 
phrase 



1654 



1655- 



For all entries added at 
1645,1646, and 1653, 
set: 

In-Clause-Coordination : 
True; 




Go to 
1665; 



FIG. 5F 



If the 
r Current-Phrase 
r Entry is computable 
and continues its Current- 
Clause and the Current- 
Wordset forms a complete 
phrase which ends the 
Current-Clause or 
another clause 



1648 



1690 



Process each completable phrase 
for completion; 

Add the Current-Wordset to the 
Next-Phrase-Set with a pointer to 
all completable phrases which 
have their clauses continued by the 
added entry; 

For each added entry, set: 
Clause-End = True; & 
Mark all types of clause 
completions True; 



If the 
^Current-Wordset 
can complete the 
Current-Phrase-Entry 
and the completed 
Current-Phrase-Entry 
can complete the 
Current-Clause 



1649 



1650 



Add the Current-Wordset to the 
Next-Phrase-Set for each possible 
completion and process each 
added entry for completion; 
For each added entry, set: 
Clause-End = True; & 
Mark all types of clause 
completions True; 
Go to 1665; 



FIG. 5G 



1670 




1672 



Inform the Communication 
Manager of a Parser 
failure; 



1673 




1673 




! ► 


1674 


Inform the Communication 
Manager of multiple syntax 
interpretations; 





FIG. 5H 



PRONOUN 


REFERENT PROPERTIES 


CONFIDENCE 
LEVEL 


SPECIAL GRAMMAR 
FUNCTIONS 


"DO" 


Verb; 


2 




III! 
1 


Noun, 1st person, singular; 


A 

4 






Subjective, UNIQUE; 


4 




"rr 


Noun, thing, singular; 


4 








i 
i 


FN9Q FNH1 




Noun, clause, CATAPHORIC; 


1 






Noun, sentence, CATAPHORIC 


1 




"SOME" 


Noun, person; 


1 


FN892 




Noun, thing; 


1 


FN 892 




Noun, place; 


1 


FN 892 




Noun, time; 

• 


1 


FN892 


'THAT 


Noun, thing, singular or noncount; 




FN77 




Noun, person, singular 




FN225 




Noun, SPECIAL MEANING; 




FN37 




Noun, clause; 








Noun, sentence; 

■ 






'TODAY" 


Noun, UNIQUE; 


4 


FN110 


NUMBERS 


Noun, number; 


4 






Noun, countable; 


2 






Noun, SPECIAL MEANING; 


4 


FN 110, FN111 




Adjective; 


4 


FN112 



FIG. 6A 



22221 



RESTART 



START 



22200- 



Look up the 
properties of 
C-Pro; 




22218 



Restore sub-entry 

number; 

Go to 22213; 



22202 



Inform the Communication 
Manager of a pronoun part 
of speech mismatch; 



22220 



Current-Sub- Entry = 
1 st sub-entry with 
C-Pro's part of speech; 



Current-Sub-Entry= 1 st 
sub-entry with the 
requested category; 
Go to 22208; 




22214 



Current-Sub- 
Entry = next 
sub-entry; 




22206 



Store at SDS: RESTART, 
ADDRESS, address of 
result, confidence level, 
Current-Sub- Entry; 



Invoke 

matched 

function; 



22210 



22207 



Return 
to caller; 



Store at the SDS: 
RESTART, 
CATAPHORICAL- 
PROPERTY, number of 
next cataphorical property; 
Go to 22207; 



Inform the 
Communication 
Manager of a pronoun 
acquisition error; 



FIG. 6B 



8 



£ CO 
O CO 

25 



LU 
O 

LU 
Q 



LU 

ft 



o 5 

3£ 



O LU 
LL I- 



LU 
O 

is tr 

< LU LU 
U_ u_ Q_ 
LU LU >- 

q q: k 



II 

jZb 
3 => 52 




>- <° £ £ c 

■ C <D C r3 F 



=J t; £ © £ 



3 a £ _ 
Z « o « 



E 2l -c ^ 

Ills 



c 2 "2 

O TJ '5 £ 9> 

-S «1 8? g 



o 



o O 

0) LU 



^ J< . 

ffl LU 3 o 
> CO O © 



d 




c 

•E » 
co 

*a -a 



o 

co "o w 



c — m 



5? 

CO « 



c 

5S O 
(0 CO u 



- > 

* .a 

CD T3 
h- CO 



2 co 
O co 
P uj 

h ° K 

UJ D Q 
Z IL < 



(D 



CO 
CO 
CD 

T3 _ 

"S ^< 
CO a) 

C 



0) 

o> c I o S 

2 JS — d co 

Z IS o « ^ -o 



UJ 

O 
z 

LU 
Q 



O 
O 



LU 
> 
LU 



if 18 

lii§ 



2>3 



o 

g 



CO 



co 
q: 

LU 
H 
LU 

Q 
LU 

£ 

o 
o 

(0 

co 
< 



CO 

z 
O 

E 

CO 

O 

Q_ 

a: 
o 



LU m 



<2 "o 

a) Co 

a) ™ 
75 



^ o 
£ 8 

O jO 

a I 



<D 0) « ™ 



O +2 

a> 

CO 



c 

CD 

E 

CD 
O "CD 



CD 

"a 



"2 

§ 

c 
o 

■■s 

c 

CD 
D) 

co" CO 

CO Q 

y a> 
2 £ 



QQ 



o 



UJ 

O 
tig 

d a: 

< LU UJ 

li. IL Q. 
UJ LU > 
Q K h- 



O 
UJ 
CL 

(0 



OILOK 



CD O 

D UJ 

CD Q. ^ 

> CO D 



UJ 

^ z 

UJ 



a 
a: 
o 

|i 

S CO 



CO (0 

s 1 * I 

3 ^ CD > 

l - 1 S-l 
E| § I s 



22300 

I 

RESTART = 22301 ; 
Store RESTART in 
SDS; 





22316. 



Function-Definition- 
Address = given 
definition address; 



22302 



Function-Definition- 
Address = 1 st 
definition address; 




Current-Function = 
function at defintion 
address or function 
selected with the 
definition's symbol at 
the position's adjective; 



22314 

_L_ 



Current-Function = 
The next function at 
the definition; 




22317 

I 

Evaluate a compatible, 
possible function; 
Store and identify the 
selection results or the 
function address in the 
SDS; 



22319 



Evaluate a compatible, 
possible function; 
Store and identify the 
quantization results or 
the function address in 
the SDS; 



22306 

_L_ 



Store at SDS: NEW- 
-> REFERENCE, 

default referent type; 



22308 

_L_ 



Store at SDS: OLD- 
REFERENCE, 
pointer to the 
modified noun in 
120; 




T 


22344 




f 1 


Function-Definition- 


Address = 


Next 


definition address; 


Go to 22304; 



22311 



Degree-Mult - 
Product of 
-> multiplying degree 
adverb degree 
numbers; 



-22310 




22312 

I 



Store at the SDS: 
confidence level, next 
definition address 
or NULL; 
Return to caller; 



FIG. 7C 



22320 



22322 



22324 




Evaluate a compatible, 
possible comparrtive function; 
Identify and store the 
comparison data in the SDS; 



Go to 
22340; 



Evaluate compatible, possible 
functions; 
Store in the SDS: 
AMBIGUOUS-QUANTIZATION/ 
COMPARISON-FUNCTION, 
the quantization type and 
value, the comparison type 
and value; 



Store and identify a 
compatible inclusion 
function and related 
information in the SDS; 




Store and identify a 
compatible exclusion 
function and related 
information in the SDS; 



Go to 
22340; 



Multiply a numerical 
quantity, and store the 
result in the SDS; or store 
Degree-Mult, and degree 
number or equivalent in 
the SDS; 



Evaluate a compatible, 
possible special function; 
Store and identify the 
result or the function 
address in the SDS; 



22333 



22322 



Evaluate a compatible, 
possible negative function; 
Store and identify the 
result or the function 
address in the SDS; 




FIG. 7D 



PREPOSITION 
TEXT 

REPRESENTATION 


RELATION 
TYPES 


CONFIDENCE 
LEVEL 


Preposition text, 

representation 

number 


List of A-Relation designations, 
S-Relation designations, 
and/or T-Relation 
designations 


Confidence level 
for each designation 



A-Relation descriptor associated with a designation: 
Type: Partitive, Possessive, Function, or Group; 
Relation Characteristic; 
Preceeding/Succeeding Pointers; 
Memory 100 Pointers; 
Specific Information; 
Designation; 



S-Relation descriptor associated with a designation: 
Source Requirement Descriptor; 
Destination Requirement; 
Destination: MODIFIEE or COMPLEMENT; 
Relation Setting Function; 
Designation; 



T-Relation descriptor associated with a designation: 
Destination: MODIFIEE or COMPLEMENT; 
Relation Setting Function; 



FIG. 8A 



2200 



RESTART = 2201 ; 

Store at SDS: 

RESTART, 

value of RESTART; 

Next-Relation-Address 

= 1st address of 

Cur-Prep; 



2201 



Current-Relation = 
Relation at Next- 
Relation-Address; 
N ext-Re latio n-Add ress 
= Address of next 
relation or NULL if 
there is none; 
CN-Prep-Status = 
NULL; 





2211 



Search for the S-Relation 
in 1 20 or 90, or determine 
if one can be generated; 



2213 



T^ 


2212 

- i 


Store a relation found in 


120 at 90; or 




Generate a new relation 


and store in 120 if none is 


found; 




Go to 2207; 






2214 



Store in SDS: 
INCOMPATIBLE- 
S-Relation, address 
of the incompatible 
relation; 



Search for the 
A-Relation in 1 20 or 90; 



2209 




Store found relation in 
120 if its not there; 



2207 

j_ 



Store at the SDS: relation 
type, relation address in 1 20 
or 90, the confidence level, 
Next-Relation-Address; 
CN-Prep-Status = FOUND; 




Generate the group 
relation; 



Return to 
caller; 



Store found T-Relation 
in 120 if needed, or 
generate and store the 
T-Relation in 120; 



FIG. 8B 



PREPOSITION 
TEXT 

REPRESENTATION 


RELATION 
TYPES 


CONFIDENCE 
LEVEL 


Preposition text, 

representation 

number 


List of AMF-Relation designations, 
F-Relation designations, 
T-Relation designations, and/or 
P-Relation designations 


Confidence level 
for each designation 



AMF and F -Relation descriptor associated with a designation: 
Type: AMF: Partitive, Possessive, Function, or Group; F: Function; 
Relation Characteristic; 
Preceeding/Succeeding Pointers; 
Memory 100 Pointers; 
Specific Information; 
Designation; 



T-Relation descriptor associated with a designation: 
Destination: SUBJECT or COMPLEMENT; 
Relation Setting Function; 
Default state(s) and/or properties; 
Designation; 



P-Relation descriptor associated with a designation: 
Purpose Relation Type; 
Designation; 



FIG. 8C 



2230 



2220 



RESTART =2221; 




Store at SDS: 




RESTART, 




value of RESTART; 
N ext-Re latio n-Ad d ress 




►< 


= 1st address of 




Cur-Prep; 





Relation 



Current-Relation 
at the 

Next-Relation-Address; 
Next-Relation-Address = 
Next relation address or 
NULL rf there is none; 



Search for a T-Relation 
in 120 or 90; 
If none is found, 
determine if one can be 
generated; 



Search for a T-Relation 
in 120 or 90; 
If none is found, call 70 
to determine if one can 
be generated; 



2234 



If a 
T-Relation 
was found oris 
generatable. 




Invo-Mod-Set = Subject; 
Invo-ADJ = Adjective; 
60-Start = 60872; 
ADJ-PREP-Return = 2236; 
ADJ-PREP-Status= False; 
Call 60[60-Start, Invo-Mod- 
Set, Invo-ADJ, ADJ-PREP- 
Status, ADJ-PREP-Return]; 



2245 



Set adjective to modify the 
subject; 

Current-Relation = NULL; 
ADJ-PREP-Status = 
Completed; 



2226 



ADJ-PREP- 
Status= FAIL; 



2223 



Return to 
caller; 



2222 



Store in the SDS: 
relation type, relation 
address, computed 
confidence level, 
Next-Relation-Address; 
ADJ-PREP-Status = 
COMPLETED; 



2235 



Store a found 
T-descriptor in 1 20; or 
Generate and store a 
T-descriptor in 120; 
Store Modal-Vat 
complements SDS 
position; 



FIG. 8D 



2229 



2249 



2250 





2237 

If the 
subject and 
r complement are both " 
concrete nouns and 
the adjective can 
modify concrete 
nouns 

2238 



in 



"razz 

Hi 




Go to 
2225; 



Search for an AMF-Relation 
in 120 or 90; 




Search for a noun contained 
in the AMF-Relation which 
can be modified by the 
adjective; 



2241 




2242 



Store in the SDS: the adjective, 
the found noun, and a 
processing symbol; 
Store the AMF-Relation and the 
found noun as needed in 120; 
Store Modal-V at the 
complement's SDS position; 



Goto 
2222; 



Go to 
2258; 



2251 



Search for a function relation 
containing the complement 
possibly with an AMF-Relation such 
that the function relation clause is a 
purpose relation clause of the 
adjective with the Current-Relation 
purpose type in 1 20 or 1 1 0; 



2252 




2258 



Associate the found clause with 
the adjective in 120 as needed; 
Store in the SDS: a pointer to the 
clause, a processing symbol, and 
Modal-V; 



FIG. 8E 



2243 




2247 




Search for a function relation with: 
subject, verb base word, and 
complement in 120; 
If none is found, replace the "to be' 
verb and adjective with the verb 
base word having the tense, and 
the modifiers of the "to be" verb; 
Set the prepositional phrase to 
modify the verb base word; 
Add a transformation processing 
symbol in the SDS; 



Goto 

2222; 



2254 



Search for a functional relation 
with: the subject, the complement, 
and the adjective as a modifier of a 
sentence role other than the 
subject or complement, or as an 
adverb modifying the verb in 120; 
If none is found for the adjective, 
invoke 60 to find such a sentence 
role; 



Search for a function relation with: 
subject, verb which sets the 
adjective state, and complement in 
120; 

If none is found, replace the "to be" 
verb and adjective with the state 
setting verb having the tense and 
modifiers of the "to be" verb; 
Set the prepositional phrase to 
modify the verb base word; 
Add a transformation processing 
symbol in the SDS; 



2253 



2255 




Search for the clause equivalent 
with the adjective as a modifier 
of other than the subject, or as 
an adverb modifying the verb in 
120; 

If none is found, determine the 
modifiee and store a clause in 
120 if the modifiee can be found; 




2259 



Store at the adjective's SDS 
position: a pointer to the functional 
relation, and a processing symbol 
implying the functional relation 
replaces the clause; 
Set all modifiers of the "to be" verb 
to modify the verb in the functional 
relation; 



Go to 

2222; 



FIG. 8F 



MODIFYING ADVERBIAL SUBCLASS DATA STRUCTURE 



SOURCE DESCRIPTOR: 
Semantic role; 

Required value or value range, and units; 
Required state(s) and/or property(s); 
Function to obtain required state(s) and/or property(s); 
Required parameters; 



DESTINATION DESCRIPTOR: 
Requirements of Modifiee; 
or NULL set; 



Function of Adverbial Subclasses Include: 
Set adverbial subclass values; 
Select modifiee word sense or word sense component; 
Initiate processes; 



FIG. 9A 



2270 2271 



Current-Adverbial = Invocation 
adverbial; 

Delete SDS information of a previously 

processed Current-Adverbial; 

RESTART = 2287; 

Store in the SDS: RESTART, and its 

value; 

WILD = False; 


► 


Find all matches of the modrfiee's 
adverbial semantic roles with 
Current-Adverbial's semantic roles; 
Store all matches in the 
Current-Evaluation-Set; 
Currently-Most-Recently-Used- 
Semantic-Role = most recently 
used semantic role in 120; 





Current-Match = 1 st most specific 
semantic role match in the 
Current-Evaluation-Set with the 
Currently-Most-Recently-Used- 
Semantic-Role which has not been 
tried before; 

Mark the Current-Match as TRIED; 



-2273 




2274 



2279 





2282- 



Markall entries without FAILED 
in the Current-Evaluation-Set 
as UNTRIED; 

Current-Most-Recently-Used- 
Semantic-Role = next untried 
semantic role in 120; 



Determine if the source and 
destination descriptors of the 
Current-Match are satisfied; 



2283 



2281 





Mark all entries without FAILED 
in the Current-Evaluation-Set 
as UNTRIED; 

Current-Most-Recently-Used- 
Semantic-Role = MATCHES- 
ANY-SEMANTIC-ROLE- 
VALUE; 
WILD = True; 



2287 



RESTORE 



Mark Current-Match 
as FAILED; 



Restore state 
from SDS; 



2278 

If 

UNTRIED 
entries in Current- 
Evaluation- 
Set 



2284- 



Evaluate evaluatable Current-Match 
functions; 

Store in the SDS: results, addresses, 
position of modifiee's matched adverbial 
subclass, pointer to the Current- 
Evaluation-Set, pointer to the Current- 
Match, pointer to the Currently-Most- 
Recently-Used-Semantic-Role, WILD; 



Go to 
2279; 



2282 



2285 



Return to 
Caller; 



Store a TRIED-BUT- 
FAILED symbol in the SDS; 



FIG.9B 



22102 



RESTART = 22103; 

Store in the SDS: RESTART, and its 

value; 

Next-Criteria = 1st or given criteria of 
the invocation modal; 



22103 



Next-Criteria = current 
unevaluated criteria or next 
unevaluated criteria; 
Evaluate Next-Criteria: 



22104 




22105 



Store in the SDS: truth 
value, next unevaluated 
criteria or NULL; 
Return to caller; 



22106 




FIG. 10A 




TENSE 


VERB TYPE 


TIME PERIODS WHEN TRUE 


TIME SHIFTS TO: 


USAGE SITUATION 


PRESENT 


STATIVE 


Before > 


Now 


< After 


PAST FUTURE 


us1 




EVENTIVE 


not Before 


Now 


not After 


PAST FUTURE 


us2,us3,us4,us5,us6 




HABITUAL 


Before > 


Now 


< After 


PAST FUTURE 


usS 


PAST 


STATIVE 


Before Past 


Past Time Point 


After Past 


PRESENT to - 


us9 




EVENTIVE 


not Before Past 


Past Time Point 


not After Past 


PAST and - 


us9 




HABITUAL 


Before Past 


Past Time Point 


After Past 


FUTURE to PAST 


us9 


FUTURE 


STATIVE 


not Now 


Future 


beyond Future 


none 


us10,us1 1 




EVENTIVE 


not Now 


Future 


not beyond Fut. 


none 


us10,us11 




HABITUAL 


not Now 


Future 


beyond Future 


none 


us1 0,us1 1 


PERFECTIVE TENSES 


PRESENT 


STATIVE 


Past 


Present 


possibly Future 


none 


us12 




EVENTIVE 


recent Past 


Present 


possibly Future 


none 


us12 




HABITUAL 


Past 


Present 


possibly Future 


none 


us12 


PAST 


STATIVE 


Past Period 


not Now 


not Future 


none 


us13 




EVENTIVE 


Past Period 


not Now 


not Future 


none 


us13 




HABITUAL 


Past Period 


not Now 


not Future 


none 


us13 


FUTURE 


STATIVE 


possibly Past 


Now 


Expected to - 


none 


us14 




EVENTIVE 


possibly Past 


Now 


be true in - 


none 


us14 




HABITUAL 


possibly Past 


Now 


the Future 


none 


us14 


PROGRESSIVE TENS 


ES 


PRESENT, 


STATIVE 


not Before 


near Time Point 


not After 


none 


us15,spec. meaning 


PAST, and 


EVENTIVE 


just Before 


Time Point 


just After 


none 


us16 


FUTURE 


HABITUAL 


not Before 


near Time Point 


not After 


none 


us15 


PERFECTIVE PROGR 


ESSIVE TENS 


ES 


PRESENT 


EVENTIVE 


Before Now 


Now 


possibly Future 


none 


us17 




HABITUAL 


Before Now 


near Now 


possibly Future 


none 


us17 


PAST 


EVENTIVE 


Past 


not Now 


not Future 


none 


us18 




HABITUAL 


Past 


not Now 


not Future 


none 


us18 


FUTURE 


EVENTIVE 


possibly Past 


Now 


Expected to - 


none 


us19 




HABITUAL 


possibly Past 


Now 


continue into - 


none 


us19 










the Future 







FIG. 10B 




2290 



Initialize the the 
timing relation data 
structure; 




2292 



Adjust the timing 
relation data structure 
according to the time 
adverbial(s); 



%0 



2297 

If 

Current- 
Clause has one 
or more default 
timing 
.relations, 



2298 



2299 



Invoke 140 to find 
the relationships of 
the Current-Clause; 
Return to 22100; 



Set the default timing 
relation(s) in the 
timing relation data 
structure; 



22100 



Store the found timing 
and purpose relationships 
in the timing relation data 
structure; 



22101 
Call the 

Communication 
Manager; 



FIG. 10C 



Conjunctions Joining Clause Constituents 



NAME 


TYPE 


FUNCTION 


and 


NOUN 


CF1.CF3 


and 


VERB 


CF2, CF4, . . . 


Conjunctions Joining Clauses 


NAME 


TYPE 


FUNCTION 


or 


COORDINATING 


R1.R2 


that 


SUBORDINATING 


R72, R77, . . . 



FIG. 11A 



22110 



22116 



Current-Conjunction = 1st conjunction in 
Cur-Conj-Set; 

Currertt-Conjunction-Elements= elements before 
Current-Conjunction; 

Current-Conjunction-Status = UNAMBIGUOUS; 
Current-Group = NULL; 



In 



Add Current-Element to 
Current-Conjuntion-Elements; 
Mark Current-Element 
BY-INCLUSION; 

Current-Group = Containing group; 



22111 




22114 



22115 



Current- Element = 1st 
-> element succeeding 
Current-Conjunction; 



22118 



Add element succeeding 
Current-Conjunction to 
Current-Conjunction- 
Elements; 




22120 



Add Current-Element to 

Next-Conjunction-Elements; 

Mark Current-Element BY-DEFAULT; 

Add a CONJUNCTION mark to the 

Current-Conjunction-Elements; 



Current-Conjunction- 
Status = 
AMBIGUOUS; 



22122 

If 

Current- 
Conjunction has 
single/multiple functions 
and there is an 
^indicating word or, 
phrase 

22123 



22124 



Current-Function -Group = 
pointer to all function 
entries for Current- 
Conjunction and the 
element type; 



Current-Function-Group = 
pointer to the function entry 
indicated for Current- 
Conjunction and the 
element type; 



22127- 



Return to 
caller; 



22126 



22125 



Store in SDS: Current-Conjunction- 
Elements, Current-Function-Group, 
Current-Conjunction-Status, 
Current-Group; 




22128 



Current-Conjunction : 
Next unprocessed 
conjunction; 



22132 



22130 



Current-Group = 
NULL; 

Current-Conjunction- 
Status = 

UNAMBIGUOUS; 



Current-Conjunction- 
Be me nts = Next- 
Conjunction-Elements 
and all other elements 
preceeding Current- 
Conjunction; 




22131 



Current-Conjunction- 
Elements = All 
elements preceeding 
Current-Conjunction; 



FIG. 11B 



AFFIX TEXT 


SOURCE 


U co T 1 N ATI ON 


TVDC 

1 Yrt 

NUMBER 




POINTER TO 

MODIFICATION 

ADVERBIAL 

SUBCLASSES 

FOR ADVERBIAL 

DESTINATIONS 


«|y" 


ADJECTIVE 


ADVERB 


1 


F1 


P1 






2 


F2, F3 


P2 








3 


F7 


P3 


"ingly" 


VERB 


ADVERB 


10 


F18, F21, F99 


P88 



FIG. 12A 



2400 




2420 



RESTART = 2408; 
Store at SDS: 
RESTART and its 
value, Function -Type- 
Set or NULL; 



On 



m 



3 

sx. 
t a 

m 




RESTART 



Current-Function = First 
un evaluated function-type 
in Function -Type -Set; 



2409 



If 



invocation 
descriptor does not 
contain GENERATE 
t and if Current-Function , 
does not contain 
DELAY 



2410 



Evaluate function(s) of 
Current-Function; 



2421 



Lookup the function- 
types which convert 
the SOURCE into the 
DESTINATION; 




2422 



Function-Type-Set = 
Found function types; 
Store Function-Type- 
Set in the SDS; 



2423 



Append in the SDS: 
FAIL; 

Return to caller; 



2405 



Look up the function- 
types corresponding to 
the SOURCE, 
DESTINATION and 
affixes; 



2407 



Function-Type-Set = 
Found function-types; 
Store Function-Type-Set in 
the SDS; 




2415 



Append in the SDS: 

RETURN-TO-INITIATING- 

CALLER; 



2412 



Append in the SDS: 
DELAYED-FUNCTION, 
address of Current- 
Function, evaluation 
address; 



2411 



Append in the SDS: 
RESULT-TYPE, result; 




2416 



Return to Step 18; 4 



FIG. 12B 



2600 




Current-Phrase = Next 
unprocessed phrase with 
ellipsis or next unprocessed 
ellipted phrase; 




ESUB = EOBJ = False; 

Goto 26100; 

(N on finite verb clause, 

verbless clause, and 

morphological word® 

ellipsis) 



2609 




2639 



Go to 2640; 
(Response form 
ellipsis) 



2613 



2602 



Res-Status = 
SUCCEED; 
Return to caller; 



2604 



Look up the type 
of ellipsis in the 
SDS; 



RETURN = 2607; 
Current-Match = 
KNOWN; 

rf not in the SDS, form 
TPSV for possible 
replacements; 
Set all vector elements 
to UNTRIED; 
Transfer 1st UNTRIED 
replacement to the 
SDS and set it to 
TRIED; 



2606 



Go to 
2618; 



2607 




2608 




Current-Match = 
EXACT-MATCH; 
TPSV = All UNTRIED; 
First-Elliptical-Match = 
Current-Phrase; 



2610 



Source-Phrase = Next 
UNTRIED phrase coordinated with 
Current-Phrase in the nearest 
preceding first order policy; 
Mark Source-Phrase to TRIED in 
the TPSV; 
RETURN = 2609; 



Goto 
2622; 




2612 

If 

Source- 
Phrase has a 
same phrase element 
Current-Match with 
Current- 
Phrase 



FIG. 13A 



2622 



Source-Phrase = Next 
UNTRIED phrase with the same 
sentence role as Current-Phrase in 
the nearest preceding first order 
policy; 

Mark Source-Phrase to TRIED in 
the TPSV; 
RETURN = 2622; 



2623 




2625 



Source-Phrase = Next 
UNTRIED phrase with the same 
phrase type as Current-Phrase in 
the nearest preceding first order 
policy; 

Mark Source-Phrase to TRIED in 
the TPSV; 
RETURN = 2625; 



2626 




* ► 


Go to 




2628; 



2624 

If 

Source- 
Phrase has a same 
phrase element Current- 
Match or a same phrase 
Current-Match 
with Current- 
Phrase 



2627 

If 

Source- 
Phrase has a same 
phrase element Current- 
Match or a same phrase 
Current-Match with 
Current- 
Phrase 



m 



2614 




Transfer: addresses of all 
replacements, their tense code 
and/or plural/singular flag from 
their Source-Phrase to the SDS; 
Store First-Elliptical-Phrase in each 
replacement phrase; 



Current-Phrase = next consecutive 
phrase after Current-Phrase; 
Source-Phrase = next consecutive 
phrase after Source-Phrase; 



■2617 



2618 



RESTART = 2635; 
Store in the SDS: RESTART and its 
value, RETURN, Current-Match, 
Current-Sentence, TPSV; 



2616 

If 

Source- 
Phrase has a same 
phrase Current-Match 
with Current- 
Phrase 



2619 



2621 




Evaluate 
the special 
function; 



Goto 
RETURN; 



■2637 



Go to 
2601; 



FIG. 13B 



2628 



2629 




T 


Current-Match = RELAXED- 
INFLECTION-MATCH; 
TPSV = All UNTRIED; 






► 


Go to 
2609; 


> ► 









2631 



2632 




T 


Current-Match = EXACT- 
MATCH; 

Current-Sentence = 
Previous sentence; 
TPSV = All UNTRIED; 








Goto 
2622; 


> » 


► 







2634 




2636 



RES-STATUS = FAILURE; 
Return to caller; 



2638 



Inform Communication 
Manager of an ellipsis 
processing error; 



2635 

RESTART | 

Restore: RETURN, Current-Match, 
Current-Sentence, TPSV; 
Go To RETURN; 



FIG. 13C 



2640 



2641 



Transfer known 
-> replacements 
to the SDS; 



2650 



If 

response 

is an 
vadverbialy 



Go to 
2601; 



2651 



2652 



Response adverbial is set to modify 
the verb in the preceding sentence's 
declaritive form; 
Replace response with the 
modified declaritive form in the SDS; 



2654 



Response adverbial is set to modify 
the verb in the declaritive clause 
in the preceding sentence; 
Replace response with the 
modified declaritive form in the SDS; 



2656 



2657 



Response is replaced with: "I 
[response adverbial] agree that 
[preceding sentence]." in the SDS; 



2658 



2659 



Response is replaced with: "I will 
[response adverbial] [preceding 
sentence]." in the SDS; 



2642 

j_ 



Mark response as 
NO-ALTERNATIVE- 
ELLIPSIS- 
PROCESSING in the 
SDS; 



2663 



Response is 
replaced with the 
declaritive form 
with the response 
replacing the 
interrogative 
pronoun in the 
SDS; 



2662 



2660 



2661 



Look up if the response is a 
suitable referent for the 
interrogative pronoun in the 
preceding sentence in the 
pronoun data structure; 




2664 



Inform the Communication 
Manager of a response 
ellipsis processing error; 



* ► 


Go to 




2665; 



FIG. 14A 



2674 




FIG. 14B 



# 



CONDITION 


SUBJECT SOURCE 


1 . nonfinite verb or morphological word® 
premodifies a concrete noun 


premodified noun's state representation data 
structure is searched for the nonfinite verb or 
the morphological word® in a clause relation 


2. nonfinite verb or morphological word® 
premodifies a noun 


premodified noun 


3. nonfinite verb or morphological word® 
premodifies a state abstract noun 


owner of the state abstract noun 


A nnnfinftp \/prh v/prhlA^Q dau^p or 

*t. 1 llsl II II IllC VCI U, VCI \Jl 

morphological word® postmodifies a 
noun 


Dostmodified noun 


5. nonfinite verb, verb! ess clause, or 
morphological word® postmodifies a 
state abstract noun 


owner of the state abstract noun 


6. a prepositional phrase modifies the 
verbal in the nonfinite verb clause or 
modifies the morphological word® 


the complement of the modifying 
prepositional phrase 


7. none 


the main clause 


8. nonfinite verb, verbless clause, or 
morphological word® is not the 
subject of the clause 


subject of the main clause 


9. subject of the main clause is not 
first Derson oronoun 

III w% v w 1 1 1 1 IWI4I 1 


1st person (speaker) 


1 n ci ihieft of Hip main icp ie not 9 

I \J. dUUJCWl \Ji U IC 11 Iclll 1 UclUOC 19 1 IUI Cl 

second person pronoun, or not a 
direct address sentence 


2nd npro.nn fnprcnn cnnkpn tri\ 

£-\ \\X pCOUM ^fJGIOUII OjhSUlVd 1 IU f 


11. none 


another untried noun in the main clause 


12. none 


the context 


13. none 


general reference (an indefinite pronoun) 



FIG. 15A 



CONDITION 


OBJECT SOURCE 


1 . nonf inite verb or morphological word© 
premodifies a noun 


premodified noun 


2. nonfinite verb or morphological word® 
postmodifies a noun 


postmodified noun 


3. a prepositional phrase modifies the 
verbal in the nonfinite verb clause or 
modifies the morphological word® 


the complement of the modifying 
prepositional phrase 


4. 2nd person is not currently the 
subject source 


2nd person (person spoken to) 


5. 1 st person is not currently the 
subject source 


1st person (speaker) 


\J. 1 IUI lv 


annthpr nntripH nnijn in thp main rlaiiQp 

01 IUU ICI Ul III IGWI 1 1UUI 1 111 U IC 1 1 1 CI II 1 ^ICIUOC 


7. none 


the context 


8. none 


default (most common object) 


9. none 


general refererence (an indefinite pronoun) 



FIG. 15B 




f* 

I 26107 




26101 



Subject-Source-List = 1 thru 3, 
7 thru 13; 

Object-Source-List =1,4 thru 9; 




^. 


26103 

. i 




Subject-Source-List = 4 thru 13; 




Object-Source- List = 2 thru 9; 


► 


i 




Subject-Source-List = 4 thru 5, 


► 


7 thru 13; 




26106 




Subject-Source-List = 6 thru 13, 


► 


Object-Source-List = 3 thru 9; 









26109 




Create TSV; 
ESUB = True; 
SUBSHIFT = False; 
SUB = 1st value in 
Subject-Source-List; 




Create TOV; 
EOBJ = True; 
OBJ = 1st value in 
Object-Source-List; 



Goto 
26111; 



FIG. 16A 



26111 



26112 




26114 

I 

ESUB = False; 
EOBJ = True; 
SUBSHIFT = True; 
Premodified noun is set 
to be subject in the SDS 
of ellipted clause; 
OBJ = 4; 



26126 



SUB = Next subject 
source in Subject- 
Source-List; 



Subject replacement is selected with the 
SUB subject source function; 
Selected subject is set to TRIED in TSV; 
Move selected subject position to subject 
position of ellipted clause's SDS; 
OBJ = 1st position in Object-Source-List; 



26127 



Go to 
26111; 



If invoked by a selector: 
RES-STATUS = FAILURE; 
Otherwise: Inform the 
Communication Manager of 
an ellipsis processing error; 



26119 




Object replacement is selected with the 
OBJ object source function; 
Selected object is set to TRIED in TOV; 
Move selected object position to object 
position of ellipted clause's SDS; 




Remove OBJ from 
Object-Source-List; 
OBJ = Next object 
source in Object- 
Source-List; 



26129 



RESTART = 26130; 

Store in SDS: RESTART and its value, 

Subject-Source-List, Object-Source-List, 

ESUB, EOBJ, SUB, OBJ, TSV, TOV, 

SUBSHIFT; 

Assign default tense and time point; 



Go to 
2601; 





F 


f 26124 






f 




OBJ = 


= 1st object 


source in Object- 


Source-List; 








f 






Go to 






26125; 





FIG. 16B 



26130 

RESTART | 

Restore: Subject-Source-IJst, 
Object-Source-List, ESUB, EOBJ, 
SUB, OBJ, TSV, TOV, SUBSHIFT; 



26131 




Go to 
26125; 



26139 



26132 



26138 









ESUB = True; 






EOBJ = False; 






SUBSHIFT = False; 


T 




Set premodified noun 




► 


as object of the ellipted 






clause; 






SUB = 3 






Go to 26116; 



Go to 
26120; 



26136 




26137 



Remove OBJ from 
Object-Source-List; 



26140 




Go to 
26123; 



FIG. 16C 



CONCRETE NOUN WORD SENSE NUMBER FORMAT: 



Word Sense Identification Number: 

Number identifying the related word sense numbers with a: 
Class Number; 
Class Member Number; 



in 

vr : 



Type Number: 

Number identifying a categorization of the word sense number; 



Specificity Number: 

Zero - General instance: 
Even 0) - Specific known instance's number; 
Odd - Specific unknown instance's number, 

or general reference version's number; 



Experience Number: 

Zero - Selects typical state and property values for the 
representation of the word sense number; 

p Zero - Selects specific experience for the representation 
of the word sense number; 



FIG. 17A 



MEMORY 90 CONCRETE NOUN ENTRY FORMAT: 



Word Sense Number of Entry; 



tu : 
: i 

in 



Set of States and Properties with their: 

Word sense numbers and their addresses in Memory 80; 
Values or value ranges; 

Pointers to associated C-descriptors, S-descriptors, and 
T-descriptors; 



Partitioned Sets of Pointers to A-descriptors and T-descriptors; 



ru 



Supertype Number: 



Subtype Numbers: 



FIG. 17B 



EXTERNAL RELATION STRUCTURE GENERAL FORMATS: 



MODIFIER INDEXED RELATIONS ENTRY FORMAT: 
Word sense number(s) of a modifier: 
A-, C-, or T- descriptor; 
Modifiee word sense entry or type number; 

RELATION INDEXED FUNCTION A-RELATION ENTRY FORMAT: 
Word sense number of verb in the function A-relation; 
A-descriptor; 

Modifiee word sense entry or type number: 

RELATION INDEXED NON-FUNCTION RELATION ENTRY FORMAT: 
A-. C-, S-. or T- descriptor; 
Modifiee word sense entry or type number; 



FIG. 17C 



• 



6000 



6001 



Current-Word = 




Next noun in N-List; 




Current-Head = 


►< 


Current-Word; 





6002 





* ► 


Go to 




6011; 



Set all modifiers of 
Current-Head to 
unprocessed; 
Go to 60100; 



6006 



111 




6004 

_l 



6018 



R-No = 1; 

R-List[1 to MAX] = The 
word sense numbers in 
120 of the Current-Head; 
A-List[1 to MAX] = 
Addresses in 120 of 
R-List entries; 
SOURCE = CONTEXT; 
BACK =6006; 
Go to 60200; 




6020 



Current-Word = 
Next unprocessed 
postmodifier 



Current-Word = Next 
unprocessed pre modifier 
in the current natural 
language order; 



6026 



6022 



Store at SDS of 
Current-Head: 
SOURCE, 120 location, 
PROCESSED; 





6028 




T 






6024 




r I 


Current-Word = 


Complement of next 


unprocessed postmodifier; 


Current-Head = 


Current-Word; 


R-No = 1; 




Go to 60100; 





FIG. 17D 



6013 



6011 



6012 



Cur-Conj-Set = SDS pointers 
of conjunctions coordinating 
premodifiers; 
60-Return = 6013; 
Call CONJ[Cur-Nat-Lang, 
Cur-Conj-Set, 60-Return]; 



Goto 
6002; 



6021 




Compute sum of products for 
multi-level conjunctions; 
Assign each term's modifiee as 
a copy of the Current-Head; 
Store terms in the SDS; 
Add a Current-Head copy for 
each "or" conjunction in N-List 
following the Current-Head; 



Form a separate prepositional 
phrase for each separate 
complement with the formed 
prepositional phrases joined by 
the conjunction joining its 
complement; 



6027 



Cur-Conj-Set = SDS pointers 
of conjunctions of prepositions; 
60-Return = 6029; 
Call CONJ[Cur-Nat-Lang, 
Cur-Conj-Set, 60-Return]; 



6029 



Compute sum of products for 
multi-level conjunctions; 
Assign the Current-Head as 
the modifiee of each term; 
Store each term in the SDS; 
Add a Current-Head copy to 
N-List once for each "or" 
conjunction; 



FIG. 17E 



60100 



60260 



60266 



R-No = POS = 1 ; 




Adj-Find = False; 




Prep-Check = number of prepositional 


phrases joined with 


"and"; 




60102 




r y 




If R-List not formed: 
R-List[1 to MAX] = 
Current-Head's MAX word sense 
numbers with the ones in 1 20 
first with the most recent first; 
BACK =60104; 
SOURCE = MEMORY; 




If 



Current-Head 
Jsa state abstract^, 
noun 

'60268 

Tl 



i r 60261 



Store STATE-ABS 
in the SDS; 




60270 



Store 
in the 



ABS-CHECK 
SDS; 



Goto 
6000; 



60125 



60104 



Go to 
60200; 



Go to 
60600; 




60105 





60106 

I 




Adj-Find = 




True; 




Goto 




60874; 







60116 



60-Return = 60104; 

AF-Fail = 60361; 

Call ADJ-FUN[Cur-Nat-Lang, 

Current-Head, AF-Fail, 

60-Return]; 



60110 




60112 



Mod-Check = 
False; 

Go to 60400; 






Current-Word = Next 




unprocessed 




pre modifier for the 


H 


current natural 




language order; 




Cur-Typ = 1 ; 



60111 



A-Sense[1 to S] = S word 
sense numbers in the context, 
most recent first order; 
Cur-Sense = 1 ; 
RRAC = 0; 



FIG. 17F 



60950 




60952 



CATG = NULL; 



CATG = Category 
of the subject; 



60953 
I 



C-Pro = Current-Head; 
!NIT= START; 



60954 




INIT= RESTART; 
PROP = CATAPHORIC; 
Not-Cata = False; 



60956 

_L_ 



PROP = NULL; 
Not-Cata = True; 



60960 



C-Pro = Current-Head; 
CATG = NULL; 



60958 

_L_ 



SC-M = False; 

60-BACK = 60970; 

Call PRO-SEL[Cur-Nat-Lang, 

INIT, C-Pro, PROG, CATG, 

60-BACK1; 




FIG. 17G 



60232 



60200 




60201 



If 



Current-Head 
is an unpreprocessed 
subject, receiver, subject 
or object complement, 
or appositive 



60203 



If 



□ 



clause has a 
processed noun subject, 
"to be" verb, and an 
unprocessed noun or 
pronoun subject 
complement 



If 

SOURCE = 
CONTEXT and 
Current-Head is not 
a specific known 
reference or a 
pronoun 



60234 



R-No = MAX + 1; 
Goto 60103; 



Go to 
60336; 



Go to 
60550; 



60208 




Go to 
60104; 



60204 

_i_ 



SC-M = True; 

Current-Head = Unprocessed 
subject complement; 
Go to 6000; 



60206 



If 

clause has a 
processed noun subject, 

"to be" verb, and a 
processed noun subject 
complement 



60211 



Go to 
60280; 




Goto 
60214; 



60212 




Go to 
60940; 



FIG. 17H 



60280 



60281 




LP 



60282 

I 

Form a clause for each subject 

composed of a subject, "to be" 

verb, and the corresponding 

subject complement; 

Join clauses with the subject 

conjunction; 



60285 



Cur-Conj-Set = All 
conjunctions joining subjects; 
60-Return = 60285; 
Call CONJ[Cur-Nat-Lang; 
Cur-Conj-Set, 60-Return]; 



Form a clause for each coordinated 
noun phrase subject composed of a: 
noun phrase subject, 'to be" verb, 
and the subject complement; 
Clauses are joined by conju notion (s) 
joining the noun phrase subject; 



60287 
I 



Cur-Conj-Set = All 
conjunctions joining subject 
complements; 
60-Return = 60288; 
Call CONJ[Cur-Nat-Lang, 
Cur-Conj-Set, 60-Return]; 



60288 
I 



For each stated or formed clause: 
form a separate clause for each 
group of subject complements joined 
by an "or", composed of the subject, 
'to be" verb, and group of subject 
complements; 

Join each formed clause with an "or"; 



Remove subject and subject complement 
noun phrases from N-List and SDS; 
Add an N-List and SDS entry for all noun 
phrases in all formed clauses; 
Add each formed clause to the SDS; 



j 



■60290 



60296 



60292 
I 



Current-Head = 1 st unprocessed noun 
head in the next subject/subject 
complement clause; 
BACK = 60104; 
Go to 60104; 



Current-Head = Subject 

complement; 

BACK = 60296 or 60291 

for the last subject 

complement; 

Go to 60392; 



60295 



60294 



Search the subject's R-List for a match 
with the R-List elements of the next 
unprocessed subject complement for 
ID# and type; 



60298 



Form an R-List as at 60103 for subject 
and/or subject complement with a 
CONTEXT SOURCE; 




Set R-No to the match or to the value needed; 
For subject and subject complement: 
REQ = R-No for subject/subject complement; 
Current-Head = Subject; 
BACK = 60296; 
Go to 60392; 



60299 
I 



Compose a new subject complement 
composed of the old subject 
complement modifying the subject; 
Set subject to PROCESSED; 



FIG. 17 I 



60940 

I 

INIT= START; 
RETRY = False; 



60944 
I 



C-Pro = Clause verb; 

60-BACK = 60945; 

CATG = NULL; 

Call Pro-Sel[Cur-Nat-Lang, 

INIT, C-Pro, PROP, CATG, 

60-BACK]; 




60942 
_l_ 



INIT = RESTART; 
PROP = CATAPHORIC; 
Not-Cata-V = False; 



60943 

I 



PROP = NULL; 
Not-Cata-V = True 



60945 



3 5 = 

4=5* 

n 




60946 
I 



F 






60948 




f I 


Verb's word sense 


number = 


R-Ust[1]; 


R-No = 1; 




Go to 60214; 



Set words in clause to 
unprocessed; 
Suspend-Verb-Clause : 
True; 

Go to Step 18; 



60932 



Set words in the current 
clause to unprocessed; 
Increment verb's R-No by 1; 
Current-Head = Subject; 
Subjects R-No = 1; 
Receiver's R-No = 1; 
Go to 60214; 



60930 




60934 
I 



INIT = RESTART; 
RETRY = True; 
Verb's R-No = 0; 



FIG. 17J 



60214 
I 



60217 



70-SEL-D = Pointer to 
R-List of Current-Head; 
70-SEL-V = Pointer to 
verb's SDS position; 
70-SEL-R = NULL; 
70-TYP-SEL = DV; 



60-Return = 60230; 
Call 70[70-TYP-SEL, 
70-SEL-D, 70-SEL-R, 
REQ, 60-Return]; 



60215 




60216 



70-SEL-D = Selected word 
sense of the clause subject; 
70-SEL-V = Selected word 
sense of the clause verb; 
70-SEL-R = Pointer to the 
R-List of Current-Head; 
70-TYP-SEL = R; 



Form a clause with the modifiee of 
the Current-Head as subject, with a 
"to be" verb, the Current-Head as 
subject complement; 
Store the clause in the SDS; 



Go to 
60203; 



01 



60230 



s 




60240 
I 



Subject's R-No = 70-SEL-D; 
Receiver's noun phrase = 
unprocessed; 

Store 70-SEL-V in the SDS; 
Receiver's R-No(s) = 1; 



60242 



60244 



Receiver's R-No(s) = 
70-SEL-R; 

Store 70-SEL-V in the SDS; 



BACK = 60104; 
Current-Word = 
Current-Head; 



60248 
I 



Subject's R-No = 
70-SEL-D; 

Subject's noun phrase 
= unprocessed; 
BACK = 60244; 
Current-Word = 
Current-Head; 



60392 
_L_ 



SREP[POS, 2] = Cur-Typ; 
SREPfPOS, 3] = Position 
of Current-Modrfiee or 
NULL for a noun head; 
SREP[POS, 4] = Modifiee's 
location of modifier relation 
or REQ for a noun head; 



60394 
I 



Current-Word-Status = 
PROCESSED; 

Store at Current-Word's SDS 
position: R-No, MAX, R-List, 
Current-Word-Status, SOURCE, 
R-RAC, RRAC; 
SREP[POS, 1] = R-List[R-No]; 
Go to BACK; 



FIG. 17K 



60120 
I 



60126 



Current-Modifiee = Next untried 
modrfiee in Ad-Mod[Current-Word, 
Cur-Typ, Cur-Nat-Lang]; 
TRIED = TMV[Current-Word WS#, 
Current-Modifiee's position, 
Current-Modrfiee WS#]; 
SUCCEED = TMV[Current-Word 
WS#, Current-Modifiee's position, 
Current-Modifiee WS#]; 
Sep-Check = number of adjectives 
modifying Current-Word that 
precede Current-Word; 
Current-Owner = Word sense 
number of Current-Modifiee; 



m 



U 




TMV[Current-Word WS#, 
Current-Modifiee's position, 
Current-Modifiee WS#] = True; 



60124 




60127 
I 



Cur-Sense = 1; 
Goto 60114; 



Determine if A-Sense[Cur-Sense] 
can possibly modify word senses of 
Current-Owner; 
If A-Sense[Cur-Sense} is at 
Current-Owner, T-Find = MATCH; 
If A-Sense[Cur-Sense} is a super-type 
of Current-Owner, T-Find = SUPER; 
If A-Sense[Cur- Sense} is a subtype of 
Current-Owner, T-Find = SUB; 
Otherwise, T-Find = NULL; 



60129 



60130 



SMV[Current-Word WS#, 
Current-Modifiee's 
position, Current-Modifiee 
WS#] = True; 



60131 



60133 




60132 
I 




SMV[Current-Word WS#, 
Current-Modifiee's 
position, Current-Modifiee 
WS#] = False; 



Go to 
60134: 



RRAC = RRAC + 1 ; 
R-RAC[RRAC, 1] = Word in conflict; 
R-RAC[RRAC, 2] = Current-Modifiee; 
R-RAC[RRAC, 3] = Sep-Check; 



Cur-Sense = Cur-Sense + 1; 



FIG. 17L 



60134 




60136 

I 

BACK = 601 38; 
Go to 601 50; 



60138 



60142 



1 



SREP[POS, 1] = A-Sense[Cur-Sense]; 
SREP[POS, 2] = Cur-Typ of Ad-Mod; 
SREP[POS, 3] = Postion of the 
Current-Modifiee; 

SREP[POS, 4] = Modifiee word sense 
number containing SREP[POS, 1]; 
Modal-V = False; 




u 
y3 




Current-Word-Status = 
PROCESSED; 
Store at SDS: Cur-Sense, 
A-Sense, S, Current-Word- 
Status, Modal-V, R-RAC, RRAC; 
Go to 601 04; 



FIG. 17M 



60150 



1 



60162 



Noun-Head-Validity = True; 
1-Mod = False; 
TEMP = Current-Modifiee; 
Set type of TEMP implied 
by Current-Word; 
3-Mod = False; 



60151 



m 




Go to 
60158; 




60170 



TEMP-SH = Modifiee 
of Current-Modifiee; 
3-Mod = True; 



TEMP-H = 
Current-Head; 
Set type of 
TEMP-H; 



fz I 



TEMP-H = TEMP; 
1-Mod = True; 



60168 



60156 





60172 




601 74 



Set type of 
TEMP-SH; 
TEMP = TEMP-SH; 



60175 







F 


60158 
f I 


F 


Noun-Head-Validity 


> ► 


= False; 












60160 
f I 






Go to BACK; 





Go to 
60177; 



60171 

I 



C u rre nt-Mo d rfie e 's 
SREP[POS, 4] = The 
new modification 
relation; 




FIG 17N 



60177 




60179 



60178 



TH = 1; 



60190 



If 

1-Mod is 
true and Current- 
Word sets a subtype 
of Current- 
Modifiee 



T 


60192 
I 


Current-Modifiee's 


SREP[POS, 1] 


= Word sense 


implied by modification of 


Current-Word; 




Set all new relations of 


processed modifiers at their 


SREP[P, 4]; 






' 60194 




60186 



Place new 
relations of T-Hold 
in SREP[POS, 4]; 



60188 

_L 



SREP[1, 1] = 
~* TEMP-H; 




Modfiee of Current-Modifiee's 
SREP[POS, 4] = TEMP-SH; 
Set all new relations of 
processed modifiers at their 
SREP[P, 4]; 



60198 



Go to BACK; 4 



60180 



Modifier-Check = 
Next, nearest 
preceding first direct 
modifier of the 
Current-Head; 




T-Hold[1,TH] = Position 
of Modifier-Check; 
T-Hold[2, TH] = New 
modification relation; 
TH = TH + 1 ; 



60184 
I 



Noun-Head-Validity : 
False; 

Go to BACK; 



FIG. 170 



60400 
I 



R-List[1 to MAX] = MAX word 
senses of Current-Word in 
the order in 120 and most 
recent first; 
R-No = Cur-Typ = 1 ; 
RRAC = 0; 



60402 
I 



Current-Modifiee = Next 
possible modifiee in 
N-Mod[Current-Word, 
Cur-Typ, Cur-Nat-Lang]; 
Sep-Check= The number of 
modifiers which precede the 
Current-Word; 



R-No = R-No+1; 



-60416 



60417 



60422 
I 



60406 
I 




R-No = 1; 
Cur-Typ = 
Cur-Typ + 1 ; 



60446 



RAC-Back = 

60436; 

Go to 60885; 



TRIED =TMV[Current-Word WS#, 
Current-Modifiee's position, 
Current-Modifiee WS#]; 
SUCCEED = SMV[Current-Word 
WS#, Current-Modrfiee's position, 
Current-Modifiee WS#] 



60408 




Go to 
60418; 



60410 
I 



TMV[Current-Word WS#, 
Current-Modrfiee's position, 
Current-Modifiee WS#] = True; 



60421 



60420 
I 



SMV[Current-Word WS#, 
Current-Modifiee's position, 
Current-Modifiee WS#] = False; 



Search for a non-conflicting 
modifier indexed relation in the 
possible partitions of Current- 
Modrfiee's external relation 
structure for a super-type, match 
or subtype; 




RRAC = RRAC + 1 ; 
R-RAC[RRAC, 1] = 
word in conflict; 
R-RAC[RRAC, 2] = 
Current-Modifiee; 
R-RAC[RRAC,3] = 
Sep-Check; 



60419 



60428 



BACK = 

60430; 

Go to 60150; 




60424 
I 



SMV[Current-Word WS#, 
Current-Modifiee's position, 
Current-Modifiee WS#] = True; 



60429 
I 



BACK - 

60104; 

Go to 60732; 



60430 



If 

^Noun-Head^ 
Validity is 
true; 



FIG. 17P 



60885 
I 



CONF = 0; 
F-R = -1; 



60886 




60893 



60887 
_l_ 



C-R = Next untried 
row # in R-Rac; 



CP 




60894 



Order rows in CONF-M by 
CONF-M[x, 1] nearest in 
position to the Current-Word; 
Store at SDS: CONF, 
CONF-M; 



60889 



If 



R-RAC[C-R, 1] 
modifies Current- 
Modifiee, is the same type 
as Current-Word, and 
R-RAC[C-R, 3] > 0 



60892 
I 



CONF = CONF + 1; 
CONF-M[CONF, 1] = 
R-RAC[C-R, 1]; 
CONF-M[CONF, 2] = 
R-RAC[C-R, 2]; 



G 




60891 
I 



»> F-R = C-R; 



60895 




60888 



60896 



Create a copy of Current-Word's 
noun phrase minus R-RAC[F-R, 
1] in the SDS; 

Mark head with MOD-INDUCED 
in the SDS; 

Remove the Current-Word and 
its modifiers from the noun 
phrase; 

Store the head of the copied 
phrase after the head of the 
current phrase; 

Join copied phrase with an "and" 
conjunction to the sentence; 




FIG. 17Q 



60436 



m 




60427 

I 

Call ellipsis processing 
at RESTART in the 
Current-Word's SDS 
position; 



60437 
I 



Goto 
60445; 



Cur-Rel-Set = All A-relations 
except function A-Relations 
without A-Relation sentence 
roles; 
RRAC = 0; 
60-Back =60438; 
Cur-Typ = 1 ; 
R-No = R-No+ 1; 



60448 




60443 




60435 
I 



R-No= 1; 



60444 
I 



Current-Modifiee = Next 
possible modifiee in 
N-Mod[Current-Word, 
Cur-Typ, Cur-Nat-Lang]; 
Sep-Check = Number of 
modifiers of the Current- 
Modifiee which precede 
the Current-Word; 
Go to 60450; 



60447- 



RAC-Back= 60355 
Go to 60355; 



60440 



60438 





60445 



Goto 
60355; 




If 

RRAC > 
0 



60433 



T 






60439 




f 1 


BACK = 


60104; 


Go to 60732; 



60442 




60449 



R-No = 
R-No + 1; 



Cur-Typ = 
Cur-Typ + 1 ; 
R-No = 1; 



FIG. 17R 



60450 



Cur-Re I = First relation in Cur-Re l-Set; 
Current-Word's word sense = R-List[R-No]; 
Modifiee-WS = Word sense of 
Current-Modifiee; 
Not-A-lnit = True; 



60480 

L 



60452 
I 



TRIED = TRV[Current-Word WS#, 
SDS position of Current-Modifiee, 
Current-Modifiee WS#, Cur-Rel#]; 
SUCCEED = SRV[Current-Word WS#, 
SDS position of Current-Modifiee, 
Current-Modifiee WS#, Cur-Rel#] 



"S3 

I ; 



Goto 




60478; 




i 










60479 
I 



Current-Relation-Found 


= False; 




Go to 60-Back; 


i 


i 


F 


60478 



Cur-Rel = Next 
untried relation 
in Cur-Rel-Set; 



60456 
I 




TRV[Current-Word WS#, 
SDS position of 
J Current-Modifiee, 
Current-Modifree WS#, 
Cur-Rel#] = True; 



60458 




60462 




60477 
I 



SRV[Current-Word WS#, SDS 
position of Current-Modifiee, 
Current-Modifiee WS#, 
Cur-Rel#] = False; 



Goto 
60760; 



60476 



60466 
I 



Cur-Modifier-Rel-Char = 
Next general relation 
characteristic of the 
Cur-Rel partition of the 
external relation structure 
of Current-Word; 



Search for a match of 
Cur-Modifier-Rel-Char in 
the Cur-Rel part ion of the 
external relation structure 
of Modifiee-WS; 



— 60468 



If 

there is an 
untried relation 
characteristic of 
the Cur-Rel 
partition 




60484 



SRV[Current-Word WS#, SDS 
position of Current-Modifiee, 
Current-Modifiee WS#, 
Cur-Rel#] = True; 




FIG. 17S 



* ► 


Go to 




60730; 



60700 
I 



SP = 0; 
Check-Try = 
False; 




60701 




Order entries in 
AMAT in the 
nearest modifiee 
1st order; 



■60703 



60704 



Cur-Modifiee-Rel-Char = Next, 
untried, typed relation characteristic 
of the modifiee's Cur- Re I partition; 



60706 
I 



Determine if the type or 
a word sense entry at 
Cur-Modifiee-Rel-Char is 
a super-type, match or 
subtype of Modifiee-WS; 




60738 
I 



Cur-Modifiee-Rel-Char = 
Cur-Modifier-Rel-Char; 



60740 




Go to 
60476; 



Cur-Modifiee-Rel-Char = 
Next untried relation in AMAT; 



Check-Try 




True 








f 




Go to 






60718; 





— 60742 



60716 
I 



60717 



Search for a match of 
Cur-Modifiee-Rel-Char at 
modifier's Cur-Rel partion; 




Go to 
60701; 



60707 




60708 
I 



SP = SP+ 1; 
AMAT[SP, 1] = 
Cur-Modifiee-Rel-Char; 
AMAT[SP, 1] = 0; 



60709 



SP = SP + 1; 
AMAT[SP, 1] = 
Cur-Modifiee-Rel-Char; 
AMAT[SP, 1]= 1; 



60714 
I 



SP = SP+1; 
AMAT[SP, 1] = 
Cur-Modifiee-Rel-Char; 
AMAT[SP, 1] = 2; 



60735 - 



R-RAC[RRAC, 3] = 
Prep-Check; 



60733 




RRAC = RRAC +1; 
R-RAC[RRAC, 1] = 
conflicting modifier; 
R-RAC[RRAC, 2] = 
Current-Modifiee; 
R-RAC[RRAC, 3] = 
Sep-Check; 



60712 



FIG. 17T 




60718 



60725 



60726 









BACK = 60728; 


T 




T-CH = Current-Head; 






Current-Head = 




► 


Current-Modifiee; 






Go to 60150; 



Mod-Pass 


= 60725; 


Mod-Fail = 


= 60704; 




L 60719 



60730 



Current-Relation-Found 
= True; 

Go to 60-Back; 




60720 

I 



T-Modifiee-WS = Current-Word's 
word sense number with the type 
number implied by the 
modification relation; 




Set the implied type for the 

word sense number of the 

Current-Word; 

Store any new relations of 

modifiers of Current-Word at 

SREP; 




60732 




R-List[R-No] of modifier = 
implied word sense number 
from matched relation; 



Go to 
60392; 



60723 
I 



Goto Mod-Fail; 



FIG. 17U 



# # 





Goto 
60730; 



FIG. 17V 



60760 




60761 

I 

RMAT = 0; 
Not-A-lnrt = 
False; 



60763 
_l 



T-R = True; 



T-R = False; 



60764 



If 



in 

irf% 



ru 



Cur-Rel designation 
^matches one at Modrfiee-WS 

with a source matching the 
^ Current-Word's word sense 
identification 
number 



60765 



If 

T-R is 
false or all specified 
, states are contained in 
the T-relation 



SRV[Current-Word WS#, SDS 
position of Current-Modifiee, 
Current-Modifiee WS# t 
Cur-Rel #] = True; 



Go to 
60768; 



60781 
I 



RRAC = RRAC + 1 ; 
R-RAC[RRAC, 1] = 
conflicting modifier; 
R-RAC[RRAC, 2] = 
Current-Modifiee; 




SRV[Current-Word 
WS#, SDS positionof 
Current-Modifiee, 
Current-Modifiee WS#, 
Cur-Rel #] = False; 



Go to 


60774; 


i 




T 





60798 



60772 



Search for a 






source owner or 






a source with a 






related type to 






the complement; 






t| 60797 










f source isan\ 







If 



S-descriptor 



found source is 
a related type of the 
stated source and does 
not imply a conflicting 
t value or alternate 
type 



60770 



Go to 
60768; 



60773 



If a 
matched 
entry has a 
related type of 
Modifiee- 
WS 



60795 
I 



R-RAC[RRAC,3] 
= Prep-Check; 




R-RAC[RRAC,3] 
= Sep-Check; 



FIG. 17W 



60774 




60785 



60775 



1 



CLOSE = 4; 



60777 



CLOSE = 3; 



CLOSE = 0; 




Go to 
60480; 



Order R-MAT rows 
by CLOSE value; 



60788 



60779 



u 




60782 
I 



CLOSE = 
CLOSE + 1; 



60783 
I 



CLOSE = 
CLOSE + 2; 



60784 




F 


Go to 


> ► 


60730; 




FR = Relation in 
current row; 



60790 



60786 



RMAT = RMAT = 1 ; 
R-MAT[RMAT, 1] = 
Relation's location; 
R-MAT[RMAT, 2] = 
CLOSE; 





BACK = 60794; 
T-CH = Current-Head; 
Current-Head = 
Current-Modifiee; 
Go to 60150; 



60792 




F 


Go to 


> ► 


60730; 



Current-Head = 
T-CH; 



60793 

_L 



Mod-Pass = 60730; 
Mod-Fail = 60788; 
Go to 60719; 



Go to 
60768; 



FIG. 17X 



60600 




60601 

I 

Current- Word = 
Postmodifying adjective; 
Cur-Typ = 

@Postmodifying-Adjective; 
Go to 601 20; 



Mark and store SREP 
elements for each 
modifier and noun at 
their SDS positions; 



60605 



Cur-Typ = 1 ; 
Go to 60300; 



60603 

r \f nexl S 
'unprocessed 
postmodrfier is a 
prepositional 
phrase 



60607 



current clause 
has a processed 
subject, a "to be" verb, 

an unprocessed 
adjective complement 
modified by a 
prepostional 
phrase 



60610 

current clause 
has a processed 
subject, a "to be" verb, 
and an unprocessed 
subject 
^complement 




60606 



Current-Head = Head of 
prepositional phrase 
complement; 
Goto 60100; 



60621 



If 



prepositional 
complement is an 
unprocessed 

clause 
equivalent. 



60608 



adjective is 
modified by an 
unprocessed 
prepositional phrase^ 
complement 



Go to 
Step 18; 



60611 



60613 



Goto 
60850; 



60614 



If 

subject 
complement is 
^an adjective. 



If 

subject 
complement is a 
prepositional 
phrase 



If 



preposition is 
unprocessed 



Goto 
60120; 




60615 



Current-Head = 
Head of 
prepositional 
complement; 
Cur-Typ = ©Subject; 
Go to 60300; 



Go to 6000; 



Go to 607002; 



FIG.17Y 



60900 



60907 



in 



H 



Go to 
60918; 




Set clause with 
Best-Def and 
Next-Def as 
unprocessed; 
Increment R-No 
of subject by 1 ; 
Go to 60293; 



FIG. 17Z 



60912 
I 

Set Best-Def as the 
modifiee of Next-Def s 
modifiers in the SDS; 
Store Modal-V at each 
transferred modifier; 



60914 



C-R is false, and 
Best-Def and Next-Def 



have 



different 
numbers 



type 



60915 
I 



Set Next-Def as having a 
TYPE-DEFINING 
relationship to Best-Def; 



60923 



Modal-V 


= False; 


Go to 60618; 


l 




F 





60918 




60920 




60919 



60924 



Select Best-Def 
and Next-Def; 
C-R = False; 
Go to 60905 




60921 

If there " 
is a clause 
with a subject 
complement and an 
v un processed sentence 
role word sense 
number 



60922 



60925 

_L 



1 



Current-Head = Next 
unprocessed sentence 
role of such a clause; 
BACK = 60104; 
Go to 60104; 



Form-C = False; 



60926 
I 



Select Best-Def and Next-Def, 
or the next formed clause; 
C-R = False; 
Go to 60905; 



FIG. 17AA 



60850 
I 



Cur-Prep = Preposition 
modifying the adjective; 
SUB J - Word sense number 
of clause subject; 
COMP = Complement of the 
prepositional phrase; 
ADJ = The adjective; 
Return-60 = 60854; 
Modal-V = False; 
P-Call - False; 



60855 




Call ADJ-PREP[Cur-Nat-Lang, 
SUBJ, ADJ t Cur-Prep t COMP, 
Return-60, Adj -Prep- Status, 
Current-Relation]; 



60854 





60872 
I 



Adj-Check = True; 
Cur-Typ = ©HEAD; 
Current-Head = First noun in 
invocation modification set; 
Current-Word = ADJ; 
Go to 60111;' 



Current-Word 

= ADJ; 

Go to 60360; 



60-Back = 60858; 
Cur-Rel-Set = Current-Relation; 
Current-Modifiee = SUBJ; 
Mod-Check = True; 
Go to 60450; 



60858 




60864 
I 



Current- 
Relation = 
NULL; 
Adj-Prep- 
Status = 
NOT-IN-90; 




Current-Relation = 
Address of found relation; 
Adj-Prep-Status = 
FOUND-IN-90; 



60870 
_l 



Return ADJ-PREP[ 
Cur-Nat-Lang t SUBJ, ADJ, 
Cur-Prep.COMP, Return-60, 
Adj-Prep-Status, 
Current- Relation]; 



Go to 
60618 



60865 
I 



BACK = 
60618; 



60390 



SREP[POS t 2] = 
Cur-Typ; 
SREP[POS, 2] = 
postion of Current- 
Modifiee; 
SREP[POS, 2] = 
Address of found , 
relation; 
Go to BACK: 



60874 




Adj-Prep-Status = 
FOUND-IN-90; 
Adj-Check = False; 




60880 



Adj-Prep-Status - 
NOT-IN-90; 
Adj-Check = False; 




60884 
f 1 



ReturnADJ-PREP[ 

Cur-Nat-Lang, SUBJ, 

ADJ, Cur-Prep, 

A- Se nse [Cur-Se nse] , 

Return-60, 

Adj-Prep-Status, 

Current- Relation]; 



60882 
I 



Current-Head = Next 
untried noun in 
invocation 
modification set; 
Go to 60111; 



FIG. 17BB 



60300 
I 



Current-Modifiee = Next 
possible modifiee in 
Prep-Mod[Cur-Nat-Lang, 
Cur-Typ]; 



60302 



If 

Current- 
Modifiee was 
selected 



60330 




Go to 
60332; 



60331 
|_ 



R-No = R-No + 1; 
Set all modifiers of 
Current-Head to 
unprocessed; 
Go to 60104; 



60304 
I 



RAC-Back = 60330; 
Go to 60885; 



60306 



Current-Prep= 
Current-Head's preposition; 
CN-PREP-Status = Find-Rel 
Return-60 = 60310; 



60322 



Call CN-PREP[Cur-Nat-Lang, 
Current-Modifiee, 
Current-Prep, Current-Head, 
Return-60, CN-PREP-Status, 
Current-Relation] at RESTART; 




Store Modal-V at 
Current-Head's SDS position; 
Go to 60390; 



60-Back = 60314; 
RRAC = 0; 
Cur-Rel-Set = 
Current-Relation; 
Current-Word = 
Current-Head; 
Mod-Check = True; 
Go to 60450; 



Current-Relation = 
Address of found 
relation; 

CN-PREP-Status = 
FOUND-IN-90; 



Return CN -PREP [Cur-Nat-Lang, 
Current-Modifiee, Current-Prep, 
Current-Head, Return-60, 
CN-PREP-Status, Current-Relation] 
at RESTART; 



FIG. 17CC 



60332 




60353 

I 

Current-Word = 
Current-Head; 
Go to 60355; 



60351 



60352 




T 






60333 




1 


ADV-Status 


= 60-Find; 


R-No = L = 


1=1; 







Store at Current-Prep's 


T 




SDS location: 






PREPROC-VERB, 




— ► 


SUBCLASS, I -1, R-No; 






Go to 60618; 



60350 



60348 





in 



T 






60338 




f I 


SUBCLASSP] = 




ADV-Subclass[Currrent-Prep, L]; 


1 = 1+1; 




L = L+ 1; 





60340 




60343 
I 



RES = FOUND; 



60345 
I 



RES = NOT-FOUND; 



1-1-1; 

60-Return = 60354; 
Call 70[70-Find, 
Current-Prep, Cur-Rel, 
R-List[R-No], R-No, 
SUBCLASS, I, 60-Return, 
RES, ADV-Status]; 



60354 




60356 



Current-Head = Head of 
Current-Prep's complement; 
Set all modifiers of Current- 
Head to unprocessed; 
Cur-Typ = ©VERB-70; 
REQ = Requirements of 
invocation subclass parameter; 
BACK = 60359; 
Go to 60390; 



60359 
I 



BACK = 60104; 
Go to 60294; 



60358 



Restore R-No, ADV-Status, 

Current-Prep; 

1 = 1; 

P-ADV= False; 



60349 



60347 



60346 



R-No = R-No + 1; 
L = 1; 



Go to 
60394; 




FIG. 17DD 



1 


Current-Head = Head of 




Current-Prep's 


T 


complement; 


> ► 


L = 1; 




P-ADV = True; 




Go to 60100; 



60361 



Goto 
60104; 



b 

ru 




RESTART = Address at morphological 

word's SDS position; 

P-Type = INVOCATION-RETURN; 

BASE = Base word of morphological word 

Return -60 = 60377; 

Call MORPH[RESTART, P-Type, BASE, 
Return-60]; 



Replace all old noun heads 

with morphological 

replacements; 

Set the first replacement to 

the next to be processed; 

Go to 6000; 



60377- 



Set all replaced word to 
UNPROCESSED; 



FIG. 17EE 



60500 



60502 




1st row of CONF-M = 
1st unprocessed row; 
Next-M = CONF-M[1, 1]; 
Remove source of 1st row; 



60504 

I 

Next-M = Prep-Mod- 
Retry[Cur-Nat-Lang, 
Cur-Typ]; 



60506 



60512 
I 




Store U-List at 




complement head's 


T 

< < 


SDS position; 




Go to 60618; 






Go to 
60550 



60527 — Current-Head 
= Next-M; 
Goto 60232; 



60520 




60522 



60525 



Next-M = Ad-Mod-Retry[ 
Cur-Nat-Lang, Cur-Typ]; 



Next-M = N-Mod-Retry[ 
Cur-Nat-Lang, Cur-Typ]; 




60528 



Set Next-M, all of its 
direct and indirect 
modifiers, and 
Current-Word to 
UNPROCESSED; 
BACK =60104; 
R-No = R-No+ 1; 



60530 




Go to 
60104; 




60546 



Current-Head 
Next-M; 



R-No = R-No + 1; 



60541 



Set no match 
at 60294; 
Go to 60295; 



Current-Word = 

Next-M; 

Go to 60104; 



Go to 
60214; 




Go to 
60216; 



Go to 
60293; 



FIG. 17FF 



60550 



60552 



If 



Current-Word 
is in a noun subject 
complement 
clause 




60554 

| 

Inform the Communication 
Manager of a noun word sense 
number processing error for 
Current-Word; 



Form a completed clause with a processed subject, and all 
processed subject complements; 

If a completed clause is not formed: form a clause with the 
subject and the first unprocessed subject complement 
and set R-No*s to 0; 

Form a clause with remaining constituents and set R-No'sto 0; 
Go to 60290; 



60559 



If 



Current-Word 
is in a subject or 
receiver phrase with 
R-No: 
MAX 



60560 
I 



Current-Head = Current-Word's phrase head; 
Set all modifiers to UNPROCESSED in 
Current-Head's phrase; 
Next-M = Current-Head; 
Go to 60541 ; 



60561 

If 

there is a 
subject or receiver 
before Current-Word 
with R-No < 
MAX 



60566 

If there 
is a non-pronoun, 
non-specific known 
subject or receiver with 
SOURCE = CONTEXT 
before Current- 
Word 



60570 

If there 
is a subject or 
receiver with an untried 
special usage or elliptical or 
^morphological alternative at or 
before Current-Word 



60562 
I 



Current-Head = Nearest subject 
or receiver satisfying 60561 ; 



60564 



Set all words in Current-Head phrase and 
words after this phrase to UNPROCESSED; 
Next-M = Current-Head; 
Go to 60541; 



Current-Head = Nearest, non-pronoun, 
non-specific known reference subject or 
receiver with SOURCE = CONTEXT 
satisfying 60566; 



-60568 



60572 
l_ 



Current-Head = Nearest subject or 
receiver with an untried special 
usage or elliptical or morphological 
alternative which satisfies 60570; 



60576 




FIG. 17GG 



60620 



If 

there is a 
noun head that has 
not been referenced 
processed 



60644 



Cur-Ref = Next 
unprocessed noun head; 




Search for and set the 
experience number for the 
best match for states set 1 s 




Store matched 
experience 
number in the 
SDS; 



60636 
I 



Generate a new 
experience number; 
Store in the SDS; 



Go to 
60800; 



FIG. 17HH 



60800 
I 



60816 



Check for Cur-Ref s default 
reference type for exceptions in 
Ref- Exce ption [Cu r-Nat-La n g] ; 
Adjust Cur-Ref s reference type 
as needed; 



60802 

If 

Cur-Refs 
group descriptor has an 
ambiguous quantization/ 
comparison 
function 



60804 

If 

state of 
compared adjective 
is stated again in 
, the sentence or , 
in 120 



60806 



Replace ambiguous function 
with the comparison function 
and an UNAMBIGUOUS-BY- 
ASSUMPTION mark; 




Replace ambiguous function 
with the quantization function 
and an UNAMBIGUOUS-BY- 
ASSUMPTION mark; 



60812 




Evaluate the functions; 
Store results in the SDS: 




Evaluate the function and 
store the results in the SDS; 



60820 




Generate and store the 
C-relation in the SDS; 



60840 
I 



Mark the group 

descriptor with a 

pointer to the 

match; 

Go to 60620; 





Mark group 

descriptor 

NEW; 

Go to 60620; 



60828 
I 



Inform the Communication 
Manager with delay of a 
compared property 
inconsistency for Cur-Rel; 



60830 
I 



Inform the Communication 
Manager with delay of a 
compared state 
inconsistency for Cur-Re! ; 



FIG. 1711 



60673 



If 

there is a 
clause which is 
not processed 
Jor Modal-V> 



60675 
I 



Cur-Clause = Next 
unprocessed clause; 



60674 
I 



> Return to caller; 




60677 
I 



60682 



Inform the Communication 
Manager of an improper 
Current-Adverbial for relation 
modification; 



60-Return = 60679; 
Cur-Modal = Next 
unprocessed modal; 
Call MODAL[Cur-Nat- 
Lang, Cur-Modal, 
60-Return]; 



60679 
I 



Set a pointer to 
Cur-Modal's truth value 
at each modifier's 
relation in Cur-Clause 
with Modal-V = true; 



60681 



60-Return = 60682; 
Current-Adverbial = Next unprocessed 
adverbial; 

ADV-Subclass = Relation-Mod'rfication- 

Subclass-Set[Cur-Nat-Lang]; 

Call ADV[Cur-Nat-Lang, Current-Adverbial, 

ADV-Subclass, 60-Return]; 




60684 



Seta pointer to Current-Adverbial's 
function results at each modifier with 
Modal-V = true in Cur-Clause; 



FIG. 17JJ 



DIRECT CATEGORY FORMAT: 



List of: 

Concrete noun word sense numbers, 
State abstract noun word sense numbers, 
Clausal abstract noun word sense numbers, 
Clausal abstract noun direct category pointer, and/or 
Clausal abstract noun indirect category pointer; 



FIG. 18A 



# • 



INDIRECT CATEGORY FORMAT: 



List of descriptors: 



NO 

s£ - 



a) Each descriptor contains one or more adjective or 
state abstract noun word sense numbers with owners; 
b) Each adjective word sense identifying number 
contains a state number and a value; 

c) Each value is a typical value, a specific 
value, or a value range; 

d) A descriptor may have a concrete 
noun or abstract noun word sense 
identifying number; 



FIG. 18B 



607002 



607012 



If 



Current-Head's 
SOURCE = CONTEXT 
and has non-general 
category 
referencing 



T 


Goto 


> ► 


60618; 



607004 



If 



Current-Head has 
been processed for 
its representational^ 
referent 



Goto 
607030; 



607005 
I 



Form an additional R-Listforthe 
Current-Head with its associated 
direct and indirect category elements; 
R-No = 1; 

MAX = Number of R-List entries; 
RMAX = Number of direct category 
elements in R-List; 

S-REQ = Current-Head's requirements 
from the modifying subordinate clause; 





Search for a match of next 
indirect entry in 1 20 which 
meets REQ; 



607019 




Store the matched 
elements; 
Adjust MAX; 



Remove the 
indirect entry; 
MAX = MAX -1; 



-607023 



607024 



T 


607007 




1 


Search for a match of next 


direct entry in 1 20 which 


meets REQ and S-REQ; 




f 607008 




Ifa \ F 
match is 
found 

607009 



Store the matched 
elements; 
Adjust MAX; 



607010 



1 



Remove the 
direct entry; 
MAX=MAX-1; 




Store at Current-Head's SDS 
position: 

NO-CONTEXT-REFERENT; 



607027 




607016 
I 



Create an SDS position for an element without one; 
Store ABS-Check at Current-Head's SDS position; 
All unprocessed modifiers with CLAUSE-MODIFIER 
are set to modify the Current-Head; 
BACK =60104; 
Go to 60104; 



FIG. 18C 



607030 




607032 
I 



V-W-S = Word sense number of the verb 
of the modifying subordinate clause; 
Ad-Set = Set of unprocessed modifiers; 
RET = 607034; 

Call 70[ABS-MOD, V-W-S, Ad-Set, 
M-Find, RET|; 



607034 




607040 
I 



Current-Head = Next 
unprocessed context 
referent sentence role; 
Go to 607005; 



607041 



F 






607036 




f 1 


Set all modifiers of the clausal 


abstract noun to 


UNPROCESSED; 


Current-Head = 


Clausal 


abstract noun; 




Remove CLAUSE-MODIFIER 


from all modifiers; 


Remove created SDS 


positions; 






f 607018 











Current-Head = Next 


T 




unprocessed possible 




► 


modifiee; 






Go to 607016; 




R-No = R-No+1; 
Next-M = Current-Head; 
Go to 60536; 



Go to 
60360; 



Form a Purpose-Set composed of 
purpose relation descriptors associated 
with the clausal abstract noun; 
Store the Purpose-Set at the clausal 
abstract noun's SDS position; 
Go to 60618; 



FIG. 18D 



# # 



VERB WORD SENSE NUMBER FORMAT: 



Word Sense Identification Number: 

Number identifying the related word sense numbers with a: 
Verb Class Number; 
Verb Class Member Number; 
Sentence Role Identification Numbers: 

Sentence Role Class Number; 

Sentence Role Class Member Number (optional); 



Type Number: 

Number identifying a categorization of the word sense number; 



Specificity Number: 

Zero - General process; 
Even (t 0) - Specific known process path; 
Odd - Specific unknown process path nearest to the 

preceding specificity number; 



Experience Number: 

Zero - Typical process for the associated type and specificity 
number; 

± Zero - Specific process for the associated type and specificity 
number; 



FIG. 19A 
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AMOMALY COMPONENT: 

APPLICATION PATTERN FOR EACH VERB WORD SENSE NUMBER: 



Contains allowed sentence patterns for the word sense number; 
Sentence patterns include: 

Transitive, ditransitive, intransitive, passive 

instrumental, A-relation sentence roles, 

idiomatic word sense number type, 

special usage sentence role and type, 

clausal abstract noun modifiable sentence 

roles, etc; 



rSJi 



09 



FIG. 19C 



SENTENCE ROLE 


REQUIREMENT DESCRIPTOR 


A-RELATION SET 


Subject, indirect object, 
direct object, etc. 


A word sense descriptor composed 
of 1 or more word sense ID numbers, 
each with a range of allowed type 
numbers, and/or 1 or more terms of 
states and/or properties, each state 
and property has an associated value 
or value range; the descriptor may be 
enumerated or represented with an 
address of an enumeration in a table; 


Set of A-Relations which 
the sentence role can . 
belong to 



FIG. 19D 



ENTRY 
NUMBER 


SEMANTIC 
ROLE 


SdURCE 
REQUIREMENT 


VALUE 

DESCRIPTORS 


Local entry 
number 


Specific role of 
the adverbial 


1 or more states, 
properties, parameters, 
of functions which the 
adverbial must 
satisfy 


Each descriptor contains: 
a required value range; 
a process application 
vector for each corresponding 
value range; an optional value 
range translation function; 
an optional pointer to 
purposes related to a 
value range; 



FIG. 19E 
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- Sentence Role (e.g., subject, indirect object, direct object) 



- Constant Type (©JOINT, ©SEPARATE, ©INDETERMINATE 



- Adverbial and/or sentence role criteria for selecting a joint 
or separate clause 



FIG. 19G 



7000 



If 

current 
invocation opcode 
is DV or 
DV-S 



Goto 
70100; 




7020 




(The opcode is S-REQ) 
Set S-REQ to the 
designated sentence role 
requirements of the 
designated verb word 
sense; 

Return to caller; 



FIG. 19H 



701 00 



70120 




Form TR-List for subject; 
Form V-List for verb; 



13s* 
51 



m 

s 



iii 



Go to 
70130; 



70104 
I 



For each verb word sense in 
V-List until an ID#or 
requirement match is found: 
For a word sense in TR-List: 
Determine if noun word 
sense ID# matches a 
subject requirement in 
V-List; 



70106 




70108 



70115 
I 



Form a separate clause in 
the SDS for each 
coordinated constituent in 
the SDS joined by the 
conjunctions; 



70126 

I 

Mul-V = True; 
Cur-Conj-Set = 
Conjunctions in 
verb phrase; 
70-Return = 70114; 
Call CONJ[Cur-Nat- 
Lang, Cur-Conj-Set, 
70-Return]; 



70124 



Mul-S = True; 
Cur-Conj-Set - 
Conjunctions in 
subject phrase; 
70-Return = 701 17; 
Call CONJ[Cur-Nat- 
Lang, Cur-Conj-Set, 
70-Return]; 




Acceptable-Subject = 
True; 



Acceptable-Subject = 
False; 



70112 



> Return to caller; 




Mul-I = True; 
Cur-Conj-Set = 
Conjunctions in 
indirect object 
phrase; 

70-Return = 70132; 
Call CONJ[Cur-Nat- 
Lang, Cur-Conj-Set, 
70-Return]; 



— 70128 




Mul-D = True; 
Cur-Conj-Set = 
Conjunctions in 
direct object phrase; 
70-Return = 70127; 
Call CONJ[Cur-Nat- 
Lang, Cur-Conj-Set, 
70-Return]; 



70129 
I 



Mul-I = 
False; 



Cur- Sub = Invocation subject; 

Cur-Sub = UNPREPROCESSED; 

For each verb of Cur-Sub: Zero a 1 position of a 

verb's SZ-V if its verb word sense does not match 

each main sentence role's requirements; 

For each non-zero SZ-V: VM-V = VM-V OR SZ-V; 

F-Stat = SUBJECT; 



70138 



Form an R-List for each 
subject, indirect and 
direct object without one; 
Set R-No's to 1 ; 
Form a V-List for each 
main verb; 
Store MAX's and 
UNPREPROCESSED 
at each of the sentence 
roles; 

Form an all 1 VM-V for 
each verb; 
F-Stat = SUBJECT, 
REPROC = False; 



70140 
I 


F 


Mark a failed special usage 
VNU-V as DISALLOWED; 
Go to 70218; 


< y 






FIG.19I 




Perform the functions 
associated with the 
special usages in 
SSU[Cur-Nat-Lang]; 



70200 



Cur-Sub = Next 


UNPREPROCESSED 


subject; 






r 70202 




m 
5 



70210 



F 






70206 




r 1 


Store R-No, # of matches, 


VNU-V at Cur-Sub's SDS 


position; 






f 70208 




Determine if the allowed 
special usages of Cur-Sub in 
SSU[Cur-Nat-Lang] imply word 
senses that match word sense 
number requirements of 
unmatched verbs in a VNU-V 
of an R-No stored for Cur-Sub 
in the SDS starting with the 1 st 
R-No and its VNU-V; 




Evaluate the functions for 
each special use; 
Store at Cur-Sub's SDS 
position: each special use 
number, each implied 
subject R-No, each special 
use verb position, VNU-V; 



70204 



Store a zero at each position of 
a Cur-Sub verb's VM-V with a 
usage that doesn't match a 
word sense number associated 
with Cur-Sub for that verb; 
Cur-Sub = PREPROCESSED; 
Store a 1 at each verb's SZ-M 
which was zeroed; 
Store SZ-V and normal R-No; 




Set next UNPREPROCESSED 
subject to PREPROCESSED; 
Store at the subject's SDS 
position: 1st matching R-No, 
the matched subject's position, 
VNU-V, special use number, 
R-No, verb position; 
Evaluate any special uses; 



FIG. 19J 



70150 



If 



clause has an 
UNPREPROCESSED 
Jndirect object 

70152 
I 



Cur-I-Obj = Next 
UNPREPROCESSED 
indirect object; 
Cur-I-Obj's R-No = 1 ; 



70158 

__l 

Increment 
Cur-I-Obj's 
R-No by 1 ; 



70156 




F-Stat = INDIRECT- 
OBJECT; 
Go to 70250; 





70310 



Cur-D-Obj = Next 
UNPREPROCESSED 
indirect object; 
Cur-D-Obj's R-No = 1; 



Increment 
Cur-D-Obj's 
R-No by 1 ; 



Store Cur-I-Obj's normal R-No; 
Store a zero at each position of 
a Cur-I-Obj verb's VM-V with a 
usage that doesn't match a 
word sense number of 
Cur-I-Obj for that verb; 
Store a A at each verb's I0Z-V 
which was zeroed; 
Store lOZ-Vat Cur-I-Obj; 
Cur-I-Obj = PREPROCESSED; 



F-Stat = DIRECT- 
OBJECT; 
Go to 70290; 



Store R-No, number of 
matches, VNU-V at 
Cur-I-Obj's SDS position; 
Go to 70156; 



70314 
I 



Store R-No, 
number of 
matches, VNU-V at 
Cur-D-Obj's SDS 
position; 
Go to 70308 




Go to 
70152; 




Store Cur-D-Obj's normal R-No; 
Store a zero at each position of a 
Cur-D-Obj verb's VM-V with a 
usage that doesn't match a word 
sense number of Cur-D-Obj for 
that verb; 

Store a 1 at each verb's IOZ-V 
which was zeroed; 
Store DOZ-V at Cur-D-Obj; 
Cur-D-Obj = PREPROCESSED; 
Go to 60316; 



If 
next 

UNPREPROCESSED 
indirect object has a word 
sense ID# which matches a 
word sense no. requirement 
,of a PREPROCESSED. 
indirect object 



Set the next UNPREPROCESSED 
indirect object to PREPROCESSED; 
Store at this indirect object's SDS 
position: the 1st matching R-No, the 
matched indirect object's position, 
VNU-V, special use numbers, R-No's 
and verb positions; 
Evaluate special use functions, 



FIG. 19K 



70250 



Determine if the allowed special 
usages of Cur-I-Obj in 
SIOU[Cur-Nat-Lang] imply word 
senses that match word sense 
number requirements of 
unmatched verbs in a VNU-V of 
an R-No stored for Cur-I-Obj in 
the SDS starting with the 1st 
R-No and its VNU-V; 
Cur-Obj = Cur-I-Obj; 



70290 



Determine if the allowed special 
usages of Cur-D-Obj in 
SDOU[Cur-Nat-Lang] imply word 
senses that match word sense 
number requirements of 
unmatched verbs in a VNU-V of 
an R-No stored for Cur-D-Obj in 
the SDS starting with the 1st 
R-No and its VNU-V; 
Cur-Obj = Cur-D-Obj; 



70182 




Store: each special 
usage object number, 
its implied R-No of 
Cur-Obj, its verb's 
position, the normal 
use R-No, and VNU-V 
at Cur-Obj's SDS 
position; 

Evaluate the function 
associated with each 
special use; 




70262 



Go to 




Goto 


70310; 




70158; 




70263 






If 

the first subject^ 
has SOURCE = 
^CONTEXTandisnot 
a pronoun 



70266 
I 













70264 
1 i 


U 


Form a full R-List; 







Go to 




70268; 



Set all subjects, direct 
and indirect objects to 
UNPREPROCESSED, 
and their R-No'sto 1 
except for the first 
subject; 

Increment the first 
subjects R-No by 1; 
Set all verb's VM-Vto 
all ones; 

REPROC = True; 
F-Stat = SUBJECT; 
Go to 70200; 



FIG. 19L 



70316 



If 

there is an 
UNPREPROCESSED 
direct object 



70318 

If 

next 

UNPREPROCESSED 
direct object has a word 
sense ID# which matches a 
s^word sense no. requirement of, 
a PREPROCESSED 
direct object 



70320 



Set the next UNPREPROCESSED 
direct object to PREPROCESSED; 
Store at this direct object's SDS 
position: the 1st matching R-No, the 
matched direct object's position, 
VNU-V, special use numbers, R-No's 
and verb positions; 
Evaluate special use functions, 



Go to 
70302; 



70362 



70360 




Form REQ by combining subject 
requirements of each verb word 
sense number corresponding to a 1 
in a verb's VM-V with a separating 
OR-Terminal symbol; 
Repeat for each coordinated verb; 
Combine verb REQ'swith an 
O R-Ve rb-Se pa ration-Terminal 
symbol; 

Store REQ in each subject's SDS 
position; 
Return to caller; 



70271 

I 



70-Return = 70282; 
RESTART = Nearest 
such ellipsis address; 
Call ELLIP[RESTART, 
70-RETURN]; 



70370 



Cur-Obj = 
Direct object; 



Cur-Obj = 
Indirect object; 



70374 
I 



Update REQ by ORing each previous 

sentence role's REQ term; 

Set a zero in each VM-V position 

corresponding to a zero NREQ term of a 

verb for ail verbs; 

Form REQ by combining Cur-Obj 

requirements of each verb word sense 

number corresponding to a 1 in a verb's 

VM-V with a separating OR-Terminal; 

Repeat for each coordinated verb; 

Combine verb REQ's with an 

O R-Ve rb-Se pa ratio n-Termina I ; 

Store REQ at each Cur-Obj's SDS position; 

Return to caller; 




FIG.19M 





Determine if a word sense 
number of Cur-Obj meets 
a requirement of a word 
sense number of each of 
Cur-Obj's vert); 



70278 




Acceptable-Object 
= False; 



70281 
_L_ 



70279 
J 



Cur-D-Obj = Invocation object; 
Cur-D-Obj = 
UNPREPROCESSED; 
Cur-Obj = Cur-D-Obj; 
For each verb of Cur-D-Obj: 
Zero a DOZ-V position if any 
sentence role doesn't match; 
For each non-zero DOZ-V: 
VM-V = VM-V OR DOZ-V; 
F-Stat = DIRECT-OBJECT; 
REPROC = False; 



Cur-I-Obj = Invocation object; 
Cur-I-Obj = 
UNPREPROCESSED; 
Cur-Obj - Cur-I-Obj; 
For each verb of Cur-I-Obj: 
Zero a IOZ-V position if any 
sentence role doesn't match; 
For each non-zero IOZ-V: 
VM-V = VM-V OR IOZ-V; 
F-Stat = INDIRECT-OBJECT; 
REPROC = False; 



70386 
I 



Mark a special use 
VNU-V as 
disallowed; 
Go to 70180; 



Acceptable-Object 
= True; 



70-Return = 70282; 
RESTART = RESTART 
address at subject; 
Call Ellip[RESTART, 
70-Return]; 




BASE = Base word of the morphological word; 

P-Type =INVOCATION-RETURN; 

Call MORPH[RESTART, P-Type, BASE, 70-Return]; 



Go to 




Go to 


70312; 




70160; 



70289 



70282 



RESTART = Address at 
the nearest alternative; 
70-Return = 70283; 



70292 




70-Return = 70101; 

RESTART = Morphological word© 

restart address; 

Current-Clause = Unpreprocessed; 



Form an R-List for each 
replaced element 
without oneand set 
R-No'sto1; 



70285 
_l 



Decrement 1 st subject's R-No; 
Reset elliptical and 
morphological elements; 
Go to 70266; 




Go to 
70272; 



F 


Go to 


> ► 


70302; 



FIG. 19N 



70400 



Cur-Mod = Next UNPREPROCESSED 
modifier in the invocation modification set; 
BASE = Base word of Cur-Mod; 
AFFIX = Affixes of Cur-Mod or NULL; 
SOURCE = Part of speech of BASE; 
DESTINATION = ADVERBIAL; 
70-Return = 70402; 
P-Type = GENERATE; 
Call MORPH[Cur-Nat-Lang ( P-Type, 
BASE, AFFIX, SOURCE, DESTINATION, 
70-Return]; 



70402 




"Si 

I 5 



F 








70409 


i 


r 1 




Cur-V-W-S = Word 




sense number of 


►< 


invocation verb; 






70418 
I 





RESTART = Address at SDS 
position of Cur-Mod; 
P-Type = INVOCATION- 
RETURN; 

BASE - Base word of Cur-Mod; 
7aReturn = 70420; 
Call MORPH[RESTART, P-Type, 
BASE, 70-Return]; 



70420 





Determine rf RESULT matches 
p\ an adverbial subclass of 
Cur-V-W-S; 



70450 
I 



Cur-Clause = RESULT; 

P-Type = PROCESS-CLAUSE; 

70-Retum = 70452; 

Call 18[Cur-Nat-Lang, P-Type, 

70-Return]; 



70426 



Set Cur-Mod to modify the 
invocation verb with the 
matched RESULT subclass; 
Go to 70410; 



70452 




70454 
I 



Set RESULT to modify the 
invocation verb through the 
implied conjunction; 
Go to 70410; 



FIG. 190 



70432 




70433 



The RESULT prepositional 
complement's R-No = 1 ; 
R-Lis[R-No] = NULL; 



Current-Adverbial = 
RESULT; 

Verb-Subclass = Adverb 
subclasses of 
Cur-V-W-S; 
70Return= 70444; 
CallADV[Cur-Nat-Lang, 
Current-Adverbial, Verb- 
Subclass, 70-Return]; 



70434 

| 

70-Return = 70436; 

Current-Prep = Preposition of RESULT; 
Cur-Rel = NULL; 
SUBCLASS = NULL; 

1 = 1; 

60-Start = 60354; 

RES = PREP-COMP; 

ADV-Status = 70-FIND; 

Call 60[Current-Prep, Cur-Rel, 

R-List[R-No], R-No, SUBCLASS, I, 

60-Start, RES, ADV-Status]; 



70444 




Store SUBCLASS at prepositional 
complement of RESULT; 
Current-Adverbial = RESULT; 
Verb-Subclass = Prepositional subclasses of 
Cur-V-W-S; 
70-Return = 70460; 

Call ADV[Cur-Nat-Lang, Current-Adverbial, 
Verb-Subclass, 70-Return]; 




SUBCLASS = 
Adverbial subclass 
requirements of 
subclass selected at 
ADV; 

70-Return 70466; 
60-Start = 60354; 
RES = FOUND; 
ADV-Status = 70-FIND 
Call 60[Current-Prep, 
SUBCLASS, 60-Start, 
RES, 70-Return, 
ADV-Status]; 



FIG. 19P 



70500 



T-Desc = NULL; 
Re-ADV-S = False; 
Separate multiple 
T- Relations into separate 
sentences; 

T-REL = T-Relation of the 
1st sentence; 




70504 
I 



Combine subclasses of 
source and destination 
clause verbs' word sense 
numbers that have the 
same semantic roles into 
Corn-Sub; 




70518 
I 



Invocation-Modification-Set = Adjective; 
Invocation-Verb = Source clause verb; 
Invocation-Verb-W-S-Subclass = Pointer to 
Corn-Sub; 

Invocation-Opcode = ADJ-COMP-MOD; 
Caller-Return = 70520; 
Call 70[lnvocation-Opcode, Invocation- 
Modification-Set, Invocation-Verb, 
Invocation-Verb-W-S-Subclass, M-Find, 
Caller-Return]; 



70520 






70510 
I 






Set destination clause verb word 






sense numbers to the next 




T 


untried word sense number 




> ► 


combination; 


► 




Set destination adverbialsto 






UNPROCESSED; 





70514 
I 



Set source clause verb word sense numbers to 
the next untried word sense number combination; 
Set source adverbialsto UNPROCESSED; 
Re-ADV-S = True; 

Set destination clause verb word sense numbers 
to the first word sense number; 
Set all other destination clause word sense 
numbers to untried; 

Set destination adverbials to PROCESSED; 



Append to T-Desc: NEGATIVE- 
ADJ-TO-ADV-T-RELATION; 
Restore initial verb word sense 
numbers; 
Go to 70560; 



FIG. 19Q 



70560 



If 



source and 
destination have 
common result 
states 



70562 

| 

Append to T-Desc: 
COMMON-RESULT-STATE- 
EMPHASIS address; 



70564 




70566 



1 



Append to T-Desc for each such 
result state: PRECEDING- 
ADDRESS/EXCEPTIONAL- 
PURPOSE-INFORMATION; 




T-REL = NextT-Relation; 
T-Desc = NULL; 
Re-ADV-S = False 
Go to 70502; 



70568 




70570 



Append to T-Desc: SOURCE- 

PROCESS-/EXCEPTIONAL- 

PURPOSE-INFORMATION; 



70574 
I 



70576 



Append other 
tabled aspects 
to T-Desc; 





Store 




T-Desc 


— ► 


at T-REL; 



70572 



70526 




70528 




C-Clause = Source; 



C-Clause = 
Destination; 



70530 



Assign Cur-Mod to modify C-Clause verbs; 
Set Cur-Mod to UNPROCESSED; 
Current-Sentence = C-Clause; 
-> Invo-Opcode = Pre-Selected-Word-Sense; 
Caller-Return = 70534; 
Call 70[lnvo-Opcode, Current-Sentence, 
C-Success, Caller-Return]; 



70554 
I 



Append to T-Desc: 
PRECEDING-ADDRESS/ 
EXCEPTIONAL-PURPOSE- 
INFORMATION; 
Go to 70560; 



70538 



C-Clause = 
source 



70546 



If 

Cur-Mod 
sentence role is 
a purpose 




Append to T-Desc: 
Source-Cur-Mod- 
Purpose addresses; 



Append to T-Desc: Source- _ 7Q552 
Cur-Mod-Adverbial- 
Subclass addresses; 



FIG. 19R 



70700 
I 



CS = CSD = MVS = 0; V = S = 1 ; 
VAG = Number of verbs; 
Cur-Verb = First verb; 
Cur-S-AND = First AND-group of subjects; 
SAG = Number of subject AND-groups; 
Cur-IO-AND = First AND-group of indirect objects; 
IOAG = Number of indirect object AND-groups; 
IO = MIN[IOAG, 1]; 

Cur-DO-AND = First AND-group of direct objects; 
DOAG = Number of direct object AND-groups; 
DO = MIN[DOAG, 1]; AMB = False; 
Ellip-Clause-Comb = False; Pre-ADV = False; 



D 
n 



70702 
I 



70730 
I 



Select next untried 
combination of main 
sentence role 
AND-groups and verb; 
Set S, V, IO and D 
according to the selected 
combination; 
Reassign Cur-S-AND, 
Cur-Verb Cur-IO-AND, 
and Cur-DO-AND as 
needed; 



AND REQ terms of Cur-Verb for 
each sentence role in Cur-S-AND, 
Cur-IO-AND, and Cur-DO-AND to 
form an AND- Result- Vector; 



70704 




70738 

_L 




Clause-M[S, V t IO, DO, 2] 
= ©TRUE; 



Clause-M[S, V, IO, DO, 2] = 

AND-Resu It-Vector; 

Store In-Clause at each main 

sentence role constituent's SDS 

position; 



70734 




70710 




70708 
I 



Separate and remove 
each ambiguous 
constituent; 

Identify and store each 
removed constituent; 
AMB = True; 



70712 



Replace removed 
constituents; 
AMB - False; 



70736 
_L 



AND each removed constituent 
REQ with AND-Result-Vector; 
Replace removed consituents 
which do not zero 
AND-Result-Vector; 
Assign other removed 
constituents to to other groups; 
Set all removed constituents to 
UNAMBIGUOUS; 
AMB = False; 



70714 



70724 
I 



Store at SDS: 

©HYPO/NOT- 

POSSIBLE-NOW; 



70720 



70-Return = 70720; 
Call MODAL[Cur-Nat- 
Lang, Cur- Verb, 
Cur-Modal, 70-Return]; 



70719 
_J 




Goto 
70750; 



Current-Adverbial = 
Such an adverbial; 
70-Back = 70720; 
Verb-Subclass = Modal 
subclasses of Cur- Verb; 
Go to 70844; 



FIG. 19S 



70750 



ry 




Mis-V = 1's of Cur-DO-AND; 
Hit-M = Zeroed Mis-V; 



70778 
I 



Mis-V-Start = MVS; 
For each constituent in Mis-V 
with a non-zero M-V: 
Mis-V-M[MVS, 0] = Mis-V type; 
Mis-V-M[MVS, 1] = M-V; 
Mis-V-M[MVS, 2] = M-SR-V; 
Store In-Clause at a constituent 
with a 1 at M-SR-V; 
Increment MVS and repeat for 
next constituent if any; 
N-Mis = Number of stored 
clauses; 
Go to 70780; 



70778 
I 



70754 
I 



Clause-Sep = 
Cur-DO-AND; 
Next-S-R = 70756; 



70758 
I 



Clause-Sep = 
Cur-IO-AND; 
Next-S-R = 70760; 



70762 
I 



Clause-Sep = 
Cur-S-AND; 
Next-S-R = 70764; 



70766 



Result-V = AND of all REQ terms 
of Cur-Verb for all sentence roles 
except Clause-Sep; 



70770 



70768 



Go to 
Next-S-R; 




70776 
I 



70774 




Individually AND each 
Clause-Sep constituent's 
Cur-Verb REQ terms with 
Result-V to form Match- Vs; 
Store non-zero Match-Vs 
and the associated 
Clause-Sep constituent 
position in Hit-M and a zero 
at Mis-V; 

Store a 1 in Mis-V for other 
Clause-Sep consituent 
positions; 



For each constituent in Mis-V: 
AND the constituent's Cur-Verb 
REQ terms starting at the 
respective position; and then 
other sentence role AND-group 
constituents except those which 
zero the formed result vector, 
M-V; except for failing sentence 
roles, place 1 's at positions of 
ANDed constituents in M-SR-V; 



70780 
I 



Clause-Sep-Start = CS; 

For each constituent in Clause-Sep 

which is in Hit-M: 

Set constituent to have In-Clause; 
Clause-Sep-M[CS, 0] - Clause-Sep 
type; 

Clause-Sep-M[CS, 1] = Constituent's 
Match-V; 

Clause-Sep-M[CS, 2] = Constituent's 
postion; 

Increment CS and repeat if needed; 
N-Mat = Number of stored clauses; 



70784 



70782 



Store In-Clause at each 
constituent of the clause 
not in Clause-Sep; 




C-Sep-D[CSD, 0] = Clause-Sep-Start; 
C-Sep-D[CSD,1]= N-Mat; 
C-Sep-D[CSD,2] = Mis-V-Start; 
C-Sep-D[CSD, 3] = N-Mis; 
Clause-M[S, V, IO, DO, 1] = 
©CLAUSE-SEPARATION; 
Clause-M[S, V, IO, DO, 2] = CSD; 
Increment CSD; 
Go to 70728; 



FIG. 19T 



70800 
I 



Cur-Verb = 1st verb 
of the sentence; 
C-Sucess = False; 



70840 



70839 
I 




Pre-ADV= False; 
Go to 70-Back; 



Cur-Result-V = 
Cur-Verb word sense 
number of next 
UNPROCESSED 
clause; 




For each CI a use- M row of 
Cur-Verb with a non-zero 
AND-Result-Vector: AND each 
row's AND-Result-Vector to 
form Cur-Result-V; 



T 



70830 -|Verb-W-S = 1st 

word sense number 
of Cur-Result-V; 



70831 
I 



70-Back = 70840; 
Go to 70600; 



Mark and store 
at Cur- Verb's 
SDS position: 
Cur-Result-V, 
Verb-W-S, 
descriptor of 
Verb-W-S 
clause; 
Cur-Clause = 
Clause of 
Cur-Result-V; 
Goto 70910 



Current-Adverbial = 
Next UNPROCESSED 
adverbial; 



70844 



Verb-Subclass = 
Prepositional 
subclasses of 
Cur-Verb; 
Store 

Verb-Subclass at 
Current-Prep's 
complement; 
Go to 70860; 



70848 



Pre-ADV = False; 
Go to 70-Back; 




70810 — | Set all Clause-M rows 
ANDed at 70806 to 
PROCESSED; 
Store ©COMBINED at 
the SDS; 




7081 4 —| Cur-Result-V = AND- 
Result-Vector of 
such a next 
UNPROCESSED 
Cur-Verb row; 
Set this row to 
PROCESSED; 



70818 
_J 



Cur-Result-V = Match-V or M-V of 

next separated clause; 

Set this clause to UNPROCESSED; 



Inform the 
Communication 
Manager of an 
adverbial 
prepostion 
processing error 
for Current- 
Adverbial; 



70846 
_L 



70-Return = 70848; 
Current-Prep = 
Preposition of 
Current-Adverbial; 
Cur-Rel = NULL; 
R-No = 1 ; 
R-List[1]=NULL; 
SUBCLASS = NULL; 
1 = 1; 

60-Start = 60354; 
RES = PREP-COMP; 
ADV-Status = 70-FIND; 
Call 60[Current-Prep, 
Cur-Rel, R-No, 
R-List[R-No], 
SUBCLASS, I, 6aStart, 
RES, ADV-Status; 



70851 



Go to 
70895; 




70824 
I 



Cur-Verb = Next 

UNPROCESSED 

verb; 

Go to 70802 




FIG. 19U 







Verb-Subclass = 






Adverb subclasses 


Go to 




of Cur-Verb; 


70860; 


4 


Store 






Verb-Subclass at 






Current-Adverbial; 



70604 



70600 




70602 
I 



Cur-Conj-Set = SDS positions of 
conjunctions of such adverbials; 
70-Return = 70604; 
Call CONJ[Cur-Nat-Lang, 
Cur-Conj-Set, 70-Return]; 



Compute sums of products of 
multi-level conjunctions; 
Form an additional clause of 
the Verb-W-S for each "or" 
conjunction; 

Join each such clause with an 
"or" conjunction; 
Assign an AIMD-group of 
adverbials to each replicated 
clause; 

Go to 70-Back; 



70612 



70610 




Current-Adverbial = UNAMBIGUOUS; 
Assign Current-Adverbial to the 
alternate modifiee word sense number; 
Reset elliptical and/or morphological 
alternatives; 
Set all modifiers of the 
Current-Adverbial to UNPROCESSED; 
Go to 70838; 



70622 



70620 




Form new clauses with the 
same constituents as the 
clause had before the 
conflicting adverbial processing 
except that no new clause has 
a conflicting adverbial; 
Join the new clauses with 
conjunction joining the 
removed conflicting adverbial; 



70630 
I 



T-Cur-Adverbial = 
Current-Adverbial; 



70634 



Go to 
70838; 




70636 
I 



Verb-Subclass = Adverbial modifier subclasses 
of T-Cur-Adverbial; 

Current-Adverbial = Next UNPROCESSED 
adverbial modifying T-Cur-Adverbial; 
Go to 70844; 



FIG. 19V 



3 55 




70-Return = 70848; 
Cur-Rel = NULL; 
SUBCLASS = NULL; 
1 = 1; 

60-Start = 60354; 
RES = PREP-COMP; 
ADV-Status = 
70-FIND; 
Call 

60[Current-Prep, 
Cur-Rel, 

R-List[R-No], R-No, 
SUBCLASS, I, 
60-Start, RES, 
ADV-Status]; 



SUBCLASS = Adverbial subclass 
requirements of the subclass 
found at ADV; 
70-Return = 70870; 
60-Start = 60354; 
RES = FOUND; 
ADV-Status = 70-FIND; 
Call 60[Current-Prep, 
SUBCLASS, 6f>Start, RES, 
70-Return, ADV-Statusl; 



RESTART = 
Morphological restart 
address of 
Current-Adverbial; 
P-Type = INVOCATION- 
RETURN; 
BASE = Base of 
Current-Adverbial; 
70-Return = 70893; 
Call MORPH[RESTART, 
P-Type, BASE, 
70-Return]; 





Current-Adverbial : 
RESULT; 
Go to 70844; 



70895 



1 



Current-Adverbial = 
RESULT; 



70896 
_L 



Cur-Clause = 
Current-Adverbial; 
p.Type = PROCESS- 
CLAUSE; 

70-Return = 70897; 
Call 18[Cur-Nat-Lang, 
P-Type, Cur- CI a use, 
70-Return]; 



Go to 
70868; 



Cur-Result-V clause is set to be modified by the 
Current-Adverbial clause and conjunction; 
Go to 70868 



Go to 
70886; 



FIG. 19W 



70900 




70901 
I 



Pre-ADV = False; 
Go to 70-Back; 



70903 



70907 




Inform the Communication 
Manager of an adverbial 
processing error for 
Current-Adverbial at the 
Cur-Result-Vector clause; 



70904 




70908 
I 



Verb-W-S = TRIED; 

Verb-W-S = Next UNTRIED word 

sense number; 

Set all adverbialsto UNPROCESSED; 
Go to 70842; 



70905 




T 






70906 




I 


Set combined Clause-M rows to 


UNPROCESSED; 


Remove ©COMBINED; 


Go to 7081 4; 





FIG. 19X 



70910 



n 




For each main sentence role of 
Cur-Clause without In-Clause: 
Store ASSUMED-UN KNOWN/ 
IMPROPER-USAGE at its SDS 
position and store a 1 at its 
position in REPROC; 
For each main sentence role with 
In-Clause: store a zero at its 
position in REPROC; 



70916 
I 



R-No = Next UNRETRIED 
word sense number of T-R-List 
meeting requirements; 
Remove R-List from 
Current-Head's SDS position; 
C-R-No = R-No; 
Place T-R-List at 
Current-Head's R-List; 
R-No = MAX = 1 ; 
Set all modifiers of 
Current-Head to 
UNPROCESSED; 
Invo-Opcode = 70-Find; 
70- Return = 70918; 
60- Start = 60100; 
REQ-SEL = True; 
Call 60[Current-Head, 
60-Start, Invo-Opcode, 
REQ-SEL, 70-Return]; 




Restore Current-Head's 
R-List and MAX; 
R-No = C-R-No; 
Add Current-Head to 
each clause to which it 
belongs and to which it 
meets such a clause's 
requirements; 
Remove 

ASSUMED-UNKNOWN/ 
IMPROPER-USAGE 
from Current-Head; 
Store In-Clause at 
Current-Head's SDS 
position; 




FIG.19Y 



70932 

I 

Cur-Verb = 1st verb of the 
sentence with such a word sense 
number; 

Cur-Verb-W-S = 1st word sense 
number without a FALSE-BY- 
SENTENCE-ROLE truth value; 
Cur-Clause = Clause of 
Cur-Verb- W-S; 



70930 



If 



70933 



sentence has a 
verb word sense 
number without a 
FALSE-BY-SENTENCE-ROLE 
truth value and if 
^every constituent has 
In-Clause 



70934 



70931 



C-Success = False; 
Return to caller; 







Mark and store a pointer at the 


T 




SDS position of Cur-Verb-W-S to 






the verb of the stated clause in 




► 


120; 






Go to 70978; 



70937 




70948 
I 



Set a pointer at Cur-Verb-W-S 
to Cur-Modal's truth value; 
Set Cur-Modal to processed; 



Store result type at 
the SDS position of 
Cur-Verb-W-S; 
Go to 70950; 



FIG. 19Z 



70950 






70952 
1 




Criteria-Set = 




lmperrtive-Set[Cur-Nat-Lang]; 


T 


70-Retum = 70954; 


> ► 


Call MODAL[Cur-Nat-Lang, 




Cur-Modal, Criteria-Set, 




70-Retum]; 



70958 
I 



Store a hypothetical truth 
value at Cur-Verb-W-S; 
Set Cur-Verb-W-S as 
processed for the 
subjunctive mood; 



70962 



Store a hypothetical truth 
value relation pointer to the 
implying verb at 
Cur-Verb-W-S; 
Set Cur-Verb-W-S as 
processed for a 
hypothetical clause 
implication; 



70964 





Determine if Cur-Clause 


F 


and/or the context has 


> ► 


stated adverbial 




subclasses which select 




processes of 




Cur-Verb-W-S; 






r 70966 



70954 
I 



Store Cur-Mo da I's truth 
value at Cur-Verb-W-S; 
Set Cur-Verb-W-S as 
processed for the 
imperitive mood; 



70974 
I 



Search the processes in 
Process-Set for: the ALL-MAIN- 
SEN TEN CE-ROLE/ADVERBIALS 
match, SUBJECT match, 
INDIRECT-OBJECT match, 
DIRECT-OBJECT match, 
IN DIRECT-OB JECT^AND 
DIRECT-OBJECT match, and 
ADVERBIAL-SET match 
depending upon the contents of 
PREF-PROC-Vand the presence 
of direct and indirect objects in 
Cur-Clause; 

Store NULL for no matches or 
the entry number for each 
matched role type at 
respectively: ALL-M. S-M, IO-M, 
DO-M, IAD-M, and AS-M; 
Cur-Process = 1 st entry stored in 
the preceding step or the 
TYPICAL-PROCESS if none was 
stored; 

Mark and store at 
Cur-Verb-W-S's SDS position: 
ALL-M. S-M, IO-M, DO-M, IAD-M, 
AS-M, and Cur-Process; 
Go to 70976; 



70972 
I 



Determine the processes in 
Process-Set for which all main 
sentence role constituents and 
adverbials of Cur-Clause meet 
their requirements; 
Remove processes which have 
unmet requirements; 




70968 
I 



Process-Set = 
All processes; 



Process-Set = 
Selected processes; 



FIG. 19AA 



70976 




Cur-Verb = Next such an 
UNPROCESSED verb; 



C-Success = True; 
Ellip-Comb-Clause = False 
REQ-SEL = False; 
Return to caller; 



FIG. 19BB 



STATE ABSTRACT NOUN OR 

ADJECTIVE WORD SENSE NUMBER FORMAT: 



Word Sense Identification Number Components: 

State number composed of: 

Class number, Member number; 
Owner word sense identification number; 
Value or value range; 



Owner Word Sense Number: 

General to specific noun word sense number; 



FIG. 20A 




TYPE 


WORD SENSE 
NUMBER 


VERB SETTING 
STATE 


ADVERBIAL 
SUBCLASSES 


PURPOSE 
POINTER 


A 


Identification 


Set of verb word 


Ust and/or 


Pointer to 




number, most 


sense numbers 


pointer to set 


related 




general owner 


setting the entry's 


of adjective 


purposes 




word sense 


state value 


adverbial 






number 




subclasses 




B 


Same identification 
number, more 
specific owner 
word sense 
number of TYPE 
A entry 






Pointer to 

related 

purposes 



FIG. 20B 



□ 



WORD SENSE IDENTIFICATION NUMBER, 

MOST GENERAL OWNER STORED WITH IDENTIFICATION NUMBER 



FIG. 20C 



ru 



n 




FIG. 20D 



50102 

I 

Invo-Op = ADV-MOD-COMP; 

ADJ = Invocation adjective SDS position; 

50-Return = 50106; 

ADJ-W-S-Set = Adjective word sense 

numbers in the set of invocation word 

sense numbers; 

Call 50[lnvo-Op, ADJ, ADJ-W-S-Set, 
50-Return]; 



50104 

± I 

ADJ-W-S-Set = Adjective 
word sense numbers in the 
set of invocation word sense 
numbers; 




F 



50110 



1 i= 




50112 
I 



Store each entry of a word sense number 
in ADJ-W-S-Set compatible to the 
invocation owner and containing a verb 
setting the entry's state word sense 
number in Verb-Result-Set; 
Return Verb-Result-Set to the caller; 





50114 
I 


r - ► 


Store the nearest owner entry of each 
ADJ-W-S-Set word sense number entry 
compatible with the invocation owner and 
with a purpose pointer in ADJ-Purpose-Set; 
Return ADJ-Purpose-Set to the caller; 





50106 




FIG. 20E 



50200 
I 



Cur-lnvo-ADJ = Invocation adjective; 
Cur-ADJ-W-S-Set = Invocation 
ADJ-W-S-Set; 



50202 
I 



Cur-Conj-Set = SDS 
positions of such 
conjunctions; 
50- Return = 50204; 
Call CONJ[Cur-Nat-Lang, 
Cur-Conj-Set, 50-Return]; 




50204 
I 



Form sums of products for 
muiti-level conjunctions; 
Form an additional copy of 
the invocation adjective for 
each "or" term; 
Assign one AND- Group to 
an invocation adjective 
copy; 

Join copied invocation 
adjectives with an "or" 
conjunction; 

Store the new structure in 
the SDS; 



50208 



Current- Adverbial = Next unprocessed 
adverbial modifier of Cur-lnvo-ADJ; 
Pre-ADV = True; 

Verb-Subclass = Adverbial subclasses of 
Cur-W-S depending upon the type of adverbial; 
70-Back =50208; 
Go to 70844; 









F 




Go to 






50216; 




50210 








f I 




Remove Cur-W-S from 




Cur-ADJ-W-S-Set; 



* ► 


Go to 




50230; 



50223 
_L 



Store FAILED- 
ADVERBIAL-AND- 
GROUP at the current 
invocation adjective 
copy's SDS position; 
Go to 50232; 



50216 




50218 
_l 



Store: CONFLICTING- 
ADVERBIALS, a vector with 
1 's at conflicting adverbials, 
O's elsewhere; at Cur-W-S in 
Cur-ADJ-W-S-Set; 



50224 
I 



AD V- Mod if ier-Succe ss 
= False; 

Return to caller; 



50240 



Go to 
50240; 



50230 
I 



Store Cur-ADJ-W-S-Set 
at the SDS position of 
Cur-lnvo-ADJ; 




Cur-lnvo-ADJ = Next unprocessed 
copy of the invocation adjective; 
Cur-ADJ-W-S-Set = ADJ-W-S-Set; 



FIG. 20F 



ADV-Modifier-Success 
= True; 

Return to caller; 



50300 




Cur-Prep = Preposition modifying 
Invo-ADJ; 

COMP = Cur-Prep's complement; 

ADJ = Invo-ADJ; 

Return-60 = 60854; 

Modal-V = False; 

P-Call = True; 

60-Start = 60851 ; 

50-Return = 50306; 



50304 
I 



SUBJ = Next untried 
modifiee in Ad-Mod[ADJ, 
Clausal/Sub-ADJ-PREP, 
Cur-Nat-Lang]; 
Call 60[60-Start, SUBJ, ADJ, 
Cur-Prep, COMP, Modal-V, 
P-Call, ADJ-PREP-Status, 
Return-60, 50-Return]; 



50306 




50312 




50308 
I 



Store a Purpose-Relation-To- 
Subject-Clause symbol at 
Invo-ADJ's SDS position; 



50310 
I 



► Return to caller; 



50316 




50314 
I 



Invocation-Modification-Set = 
ADJ; 

Invocation-Verb = Verb of 
the clausal subject; 
Invocation-Opcode = 
ADJ-COMP-MOD; 
50-Return = 50316; 
Call 70[lnvocation-Opcode, 
Invocation-Modification-Set, 
Invocation-Verb, M-Find, 
50-Return]; 



FIG. 20G 



50500 




50502 



^ Return to caller; 



50504 
I 



Cur-State = Next unprocessed 
state in Invo-State-Set; 



50506 



If 



Cur-State has 
adverbial modifiers 
with delayed 
evaluation 
functions 



50508 
I 



Evaluate any delayed evaluation 
functions of the adverbial s 
modifying the word associated 
with Cur-State; 



50510 




50512 
I 



Store Cur-State, its value or 
value range, and a pointer to 
Cur-State's nearest owner in 80 
at New-State-Set; 



Store Cur-State, its value or 
value range, and a pointer to 
Cur-State's entry in 120 at 
Found-State-Set; 



FIG. 20H 



PURPOSE ADDRESS FORMAT: 



Purpose Identification Number: 

Location of related purpose node table; 
Function number; 

Path Type Number: 

Path Specificity Number: 

Path Experience Number Set: 



FIG.21A 



PURPOSE NODE ENTRY FORMAT: 


OWNER'S WORD 
SENSE NUMBER 


PURPOSE ADDRESS FUNCTION 
INDEX AND INTRA-FUNCTION 
RELATIVE FREQUENCIES 


VERB WORD SENSE 
NUMBER OWNERS CLAUSE 
CONSTITUENT INITIAL STATES 


State adjective, abstract 
noun or verb word sense 
number related to the 
purposes of the entry; 


Purpose address with pointer to the 
purpose realization entry in 110 or 130 
and with a next memory link entry 
number; 

partitioned by function types; 
for each function type, each pointer has 
a relative frequency for its occurrence 
within a function; 


The initial state value or value range 
for a non-typical state value of a 
clause constituent; 



FIG. 21B 
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in 



CONCURRENT 
ENTRIES 

SYNCHRONIZATION 
TYPE 


NULL - No 
synchronization; 
Number - Time 
units to start of 
concurrent clause; 
Range - 
Synchronized 
within lower limit to 
upper limit; negative 
limit implies number 
of preceding units; 
positive limit implies 
number of 
succeeding units; 


RELATIVE 
FREQUENCY OF 
SEQUENTIALLY 
RELATED LINK 
ENTRIES 


Relative frequency 
of a succeeding 
link entry relative 
to all its alternative 
succeeding link 
entries; 


SUCCEEDING 
LINK ENTRY 
ADDRESS(ES) 


Location(s) of 
succeeding 
entries in 150 
of this entry 
and access 
conditions; 


CONCURRENT 
LINK ENTRY 
ADDRESS(ES) 


Location(s) of 
concurrent 
entries in 150 
of this entry 
and access 
conditions; 


PRECEDING 
LINK ENTRY 
ADDRESS(ES) 


Location(s) of 
preceding 
entries in 1 50 
of this entry 
including its 
specific 
address; 


LEVEL 
NUMBER 
AND ORDER 
TYPE 


Number of 
entries between 
the word sense 
number and 
the start of the 
purpose; 
order type: 
SET, 

VARIABLE; 


LINK TYPES 


#of preceding link 
entry addresses, 

# of concurrent link 
entry addresses, 

# of succeeding 
link entry 
addresses; 


PURPOSE 
REALIZATION 
ENTRY 
ADDRESS 


Owning 
purpose's 
110 or 130 
purpose 
realization 
entry address; 



Q 

T— 

d 



14000 



If 



current invocation 
opcode is 
REL-SELECT 



14004 



14002 
I 



Cur-Clause = Word sense 
number implying a clause; 
INIT = False; 

Purpose-Rel = Purpose relation 
functions of Cur-Clause; 
Rel -Clause = Related clauses; 
Go to140100; 



If 

current invocation" 
opcode is 
PATH-FIND 



Go to 
140300; 



14006 



If 

current invocation 
opcode is PURPOSE- 
MANAGER 



Go to 
140600; 



14010 



If 

current invocation" 
opcode is 
DYNAMIC 



Go to 
140880; 



14014 



If 



current invocation 
opcode is 
CLASSIFY 



Goto 
140900; 



14018 



If 

^current invocation" 
opcode is EVAL- 
PUR-DESC 



Goto 
140950; 



14022 

_L 



Go to 140-Return; 



FIG.21E 



140100 



m 



is : 




140101 
I 



Cur-Conj-Set = The 
unprocessed conjunction; 
140-Retum = 14002; 
Call CONJ[Cur-Nat-Lang, 
Cur-Conj-Set, 140-Return]; 



Context-Purpose-Set = 
Pointer to purposes of a 
generalized Cur-Clause; 
State-Check = False; 
INIT= True; 
Goto 140148; 



140109 




Dtscourse-Func = 
CONTRARY-PUR; 



140108 
I 



Disco urse-Func = 
REITERATION-PUR; 



140112 
I 



Disco urse-Func = 
SUMMARY-PUR; 



Store Discourse-Func at 
Cur-Clause's SDS position 
with a pointer to the repeated 
statement of purpose; 
Cur-Pur = A pointer to 
Cur-Clause's known purpose 
relations; 
Return to caller; 



140118 
I 



Purpose-Rel = Purpose-Relation[Cur-Clause, 
Purpose-Function]; 



140122 



140120 




Purpose-Set = The only purpose function in Purpose-Rel; 

Pre-Node = Rel-Clause; 

Cur-Pur = The purpose function in Purpose-Set; 

Rel-Type = DEFINED; 

Goto 140166; 



yf 140124 



"f \ F 
Rel-Clause 
JsnotNULL^ 




140126 
I 



Purpose-Set = The purpose functions of Purpose-Rel; 
Pre-Node = 1st clause in Rel-Clause; 
Cur-Pur = 1st Purpose function in Purpose-Set; 
Rel-Type = PARTIALLY-DEFINED; 
Go to 140166; 



FIG.21F 



140130 




140131 
L_ 



Purpose -Set = The purpose 
function in Purpose-Rel; 
Rel-Type = UNDEFINED; 
C-Rel-Check = False; 



C-Rel-Check = False; 
Purpose-Set = Stored 
purpose functions of a 
generalized Cur-Clause; 
Rel-Type = UNDEFINED; 



140134 
I 



Cur-Pur = Next untried 
purpose function in 
Purpose-Set; 



140136 




140164 
I 



Cur-Pur = Next untried 
purpose function in 
Purpose -Set; 



140162 
J 



140166 
I 



C-Rel-Check = True; 
Search for all purpose path 
type matches between stored 
purposes in a generalized 
Cur-Clause with a Cur-Pur 
function and stored purposes 
in a generalized Pre-Node with 
a Cur-Pur function; 



140168 



Pre-Node = Nearest, untried 
clause selected by 
Rel-Clause-Policy[Cur-Nat- 
Lang, Cur-Conversation, 
Rel-Type, Rel-Clause]; 
Set all purpose functions in 
Purpose-Set to untried; 



140176 



Search for all purpose path 
type matches between stored 
purposes in Purpose-Set with 
a Cur-Pur function and stored 
purpose addresses in 
Context-Purpose-Set with a 
Cur-Pur-Function; 






140172 



Go to 
140180; 




For each match, associate 
a Pre-Node, the nearest 
clause with the purpose 
address match; 



140146 
I 



Store a purpose entry at 
Context-Purpose-Set: Cur-Pur, 
purpose address matches, 
associated Pre-Node, 
Cur-Clause, Rel-Type; 



140144 
L 



Order purpose matches 
of Cur-Clause according 
to their presence in 
ALL-M, S-M, IAD-M, 
IO-M, DO-M and AS-M; 



140148 
L 



140150 



Store Context-Purpose-Set 
location at the SDS 
position of Cur-Clause; 



Go to 
140170; 




Go to 
140230; 



Go to 
140176; 



FIG.21G 



140180 
I 



Go to Pur-Class-Set[Cur-Nat-Lang, 
Cur-App]; 



140183 



If 



Purpose-Set 
has a MOTIVATION 
function and a stored 
.function was not j 
found 



140186 



If 



Purpose-Set 
has an EXCEPTION 
function and a stored 
.function was not j 
found 



140196 



If 



Purpose-Set 
has a INFORMATION 
function and a stored 
. function was not . 
found 



140200 



If 



Purpose-Set 
has a CONDITION 
function and a stored 
t function was not. 
found 



140204 



If 



Purpose-Set 
has a LISTING 
function and a stored 
.function was not^ 
found 



140208 



If 



Purpose-Set 
has a CONTRAST 
function and a stored 
t function was not , 
found 



140-Return = 140190; 
RS = False; 
Check-Clause = 
Cur-Clause; 



— 140182 



j 



140192 



140190 



140-Restart = 140186; 
CLASS = MOTIVATION; 
Call140[CLASSIFY, 
CLASS, RS t 
Check-Clause, 
140-Return]; 



Store a purpose entry at 
Context-Purpose-Set: 
CLASS, NULL, related 
clause, Cur-Clause, C-Pur; 
Store entry location at the 
SDS position of Cur-Clause; 



140212 



140188 



140-Restart = 140196; 
CLASS = EXCEPTION; 
Call 140[CLASSIFY, 
CLASS, RS, 
Check-Clause, 
140-Return]; 





140198 
I 




140-Restart = 140200; 




CLASS = INFORMATION; 


T 


Call140[CLASSIFY, 


> ► 


CLASS, RS, 




Check-Clause, 




140-Return]; 




140202 
I 




140-Restart = 140204; 
CLASS = CONDITION; 
Call 140[CLASSIFY, 
CLASS, RS, 
Check-Clause, 
140-Return]; 



140206 
I 



140-Restart = 140208; 
CLASS = LISTING; 
Call 140[CLASSIFY, 
CLASS, RS, 
Check-Clause, 
140-Return]; 



140210 



140-Restart = 140212; 
CLASS = CONTRAST; 
CalM40[CLASSIFY, 
CLASS, RS, 
Check-Clause, 
140-Return]; 



14aRestart = 140216; 
CLASS = ALTERNATIVE/ 
PREFERENCE; 
Call140[CLASSIFY, 
CLASS, RS, 
Check-Clause, 
140-Return]; 



140216 




140 Restart = 140220; 
CLASS = PROPORTION; 
Call 140[CLASSIFY, 
CLASS, RS, 
Check-Clause, 
140-Return]; 




14aRestart = 140230; 
CLASS = CONCESSION; 
Call 140[CLASSIFY, 
CLASS, RS, 
Check-Clause, 
140-Return]; 

FIG.21H 



140230 



140232 



If a 

purpose relation 
was found or IN IT 
is true 



140250 



140254— store at Context-Purpose-Set: 
DEFAULT-DESCRIPTION, 
NULL, NULL, Cur-Clause, 
Rel-Type; 



140252 
_l 



Cur-Clause = Alternative 

conjunction; 

Set the conjunction to 

UNAMBIGUOUS; 

Goto 14002; 



140244 




Time-Check is 
true and a doer sets 
states or Cur-Clause 
has a time 
adverbial 




Cur-Time = The time 
point of Cur-Clause; 
T-Type = DEFINITE; 




Cur-Time = The typical 
transition time for 
Cur-Clause; 
T-Type = TRANSITION; 



140240 
I 



Cur-Time = The time 
point of the most 
recent Pre-Node + the 
transition time; 
T-Type = RELATIVE; 



FIG. 21 1 



140300 




140302 
I 



Cur-Purpose = Next untried process in 
Purpose-Set; 

Initial-Node = 1 50 memory address of 
State-Value-1 at Cur-Purpose; 
Final-Node = Invocation State-Value-2; 
Ad-Source = SUCCEEDING; 



140306 
I 



Cur-Purpose = Next untried process in 
Purpose-Set; 

Initial-Node = 150 memory address of 
Cur-Clause at Cur-Purpose; 



Cur-Purpose = Next 
untried purpose of 
Cur-Clause in 
Purpose-Set; 



140330 

L 



Final-Node = Cur-Clause; 
Cur-Node = Initial-Node; 
Ad-Source = SUCCEEDING; 



140309 
L 



Result-Type = 
TYPE-FAIL; 
Return to caller; 



140312 



140335 
I 



Restore context; 
Go to R-Add; 



140333 




F 






r 


Go to 


140334; 



140328 



Initial-Node = 150 memory 
address of the Cur-Purpose 
entry's initial clause; 
Cur-Clause-Node = 150 
memory address of 
Cur-Clause at Cur-Purpose; 
DIRECTION = FORWARD; 




140332 

L 



Final-Node = Initial-Clause; 
Cur-Node = Cur-Clause-Node; 
Initial-Node = Cur-Node; 
Ad-Source = PRECEEDING; 




140318 



140316 
_L 



DIRECTION = 
REVERSE; 




140320 



If 



140324 



140326 
I 



Inform Communication 
Manager of a purpose 
path failure; 




the entry in 
150 of the Inrtal-Node or 
of Cur-Clause-Node has 
VARIABLE order 
type 



140322 
I 



Append to Possible- 
lnterpretations[Cur-Clause]: 
Cur-Purpose, ORDER-FAULT, 
DIRECTION; 



FIG. 21J 



140334 
I 



Zero: PATH, In-Path, Active-Path, BACK, 
C-Branch, Assumed-Sentence-Roles, 
Tlme-Vec, S-Cur-Time, Modal-Vec; 
PATH[1,1,1] = PAT>H[1,1,2] = 
Cur-Node; 

BACKfl, 1] = Number of Ad-Source 

addresses at Cur-Node; 

O-Source = Ad-Source; 

Path-No = NODE =1; 

Add 1 to In-Path and Active-Path where it 

is set to PROCESSED; 

Fin-Node = S-Path = False; 



140336 
I 



Next-Node = Next untried Ad-Source 
address at Cur-Node which has an 
access condition set met by the context; 
BACKfPath-No, NODE] = 
BACK[Path-No, NODE] - 1 - the number 
of just failed condition sets; 
Resutt-Type = ACCESS-CONDITION; 
R-Add = 140336; 



140338 




140354 
I 



Pre-Node = Cur-Node; 
Cur-Node = Next-Node; 
Goto 140360; 



140340 



140341 





Goto 
140450; 



140342 



Goto 
140462; 




140344 
I 



Set members of Purpose-Set 
which have the same 
Cur-Node link entry to tried; 
Goto 140480; 



Goto 
140480; 



Goto 
140300; 




FIG.21K 



140360 



If 



Cur-Node's clause 
= Final-Node and 
Path-No = 1 



140362 
I 

Result-Type = 
SUCCESS; 
Fin-Node = True; 



140363 




140364 



Determine if there is an avail ible entry in 120 which 
meets the sentence role requirements of the 
owning clause of Cur-Node; 
Result-Type = SENTENCE-ROLE-UNAVAILABLE; 
R-Add = 140384; 





Look up the result states or state of 
Cur-Node's clause; 
Each state is checked for being on 
a goal purpose path in the context; 
the states on a path are checked 
for having a differing value; those 
nodes on a path with a differing 
value are checked for having an 
unexpired duration comment; 
Store such differing states in 
Back-Set; 
Result-Type = 
STATE-EFFECT-FAIL; 
R-Add = 140400; 



For each state in 
Back-Set: determine if 
it is reversible; 
>| Stop when a state is 
found to be irreversible 
or until all states are 
found to be reversible; 



140391 



Goto 
140342; 




S-Cur-Time = 

MMAX[0, 

S-Cur-Time]; 




140368 

_L 



S-Cur-Time = 
Cur-Node's time 
value; 




140372 



S-Cur-Time = 
Pre-Node's 
S-Cur-Time + 
the time change; 



140374 
I 



Compute 
S-Cur-Time at 
Cur-Node's time 
function; 



FIG.21L 



* — ► 


Go to 




140462; 



140376 
I 



Time-Vecpath-No, 
NODE, 1] = 
Cur-Node; 
Time-Vec[Path-No, 
NODE, 2] = 
S-Cur-Time; 
Goto 140378; 



140400 




Perform the functions 
associated with the checks 
until a check fails or all 
checks are performed; 
Result-Type = FAILED- 
OTHER-CHECKS; 
R-Add = 1 40430; 




Modal-Vec[Path-No, 
NODE, 1] = Cur-Node; 
Modal-Vec[Path-No, 
NODE, 2] = Cur-Node's 
modal; 



140440 
I 



Add Path-No to Active-Path[NODE +1]; 
Set it to unprocessed; 
PATH [Path-No, NODE + 1,1] = Pre-Node; 
PATH [Path-No, NODE + 1,2] = Cur-Node; 



140442 
I 



BACK[Path-No, NODE + 1] 
The number of O-Source 
addresses at Cur-Node; 



140444 




140472 



C-BR-Next = 
C-BR-Next + 1 ; 




O-Path = Path-No; 

Path-No = Next unused path number; 
Ad-Source = CONCURRENT; 
BACK[Path-No t NODE] = The number of 
concurrent addresses in the next 
unprocessed Concurrent-Address-Set; 
T-Node = Cur-Node; 
PATH[Path-No t NODE, 1] = O-Path; 
PATH[Path-No f NODE, 2] = The number of 
the Concurrent -Address-Set; 
Go to 140336; 



140464 




140466 




140470 



T 


140452 
' I 


Path-No = 


Next 


unprocessed path 


number in 




Active-Path[NODE]; 


Cur-Node 




PATH[Path-No, 


NODE, 2]; 






r 140454 



Result-Type : 
SUCCESS; 



140462 
I 



Compress and store: Invocation-Type, PATH, 
BACK, In-Path, Active-Path, C-Branch, 
Assumed-Sentence-Roles, Time-Vec, 
Modal-Vec, Cur-Purpose, Cur-Node, R-Add, 
Initial-Node's source in the SDS; 
Return to caller; 



PATH[0-Path t 
NODE, 3] = 
C-BR-Next; 



Ad-Source = O-Source; 
C-BR-No = PATH[0-Path, NODE, 3] 
+ PATH[Path-No, NODE, 3]; 
C-Branch[C-BR-No] = Path-No; 
Add Path-No to In-Path; 
Path-No = O-Path; 
Cur-Node = T-Node; 
Go to 140742; 




140456 
I 



Pre-Node = PATH [Path-No, NODE.1] 
Set Path-No to processed in 
Active-Path[NODE]; 
Go to 140336; 





140458 
I 


'■ ► 


Set Path -No to processed in 

Active-Path[NODE]; 

Go to 140450; 





FIG. 21 M 



140602 




FIG.21N 



140600 



140601 



ff 



Cur-Clause is 
the first clause of the 
conversation 



F 




Cur-App = 






NULL; 


► 



140602 
I 



140-Return = 140603; 

Call 140[CLASSIFY, Cur-App-Select, 

Cur-App, Cur-Clause, 140-Return]; 




140604 



140-Return = 140605; 
Call 170[lnterp-Plaus-Check-lnit, 
Cur-Clause, 140-Return]; 



140605 
l_ 



Look up and set purpose 
processing parameters 
of Cur-App; 



140607 
I 



Cur-ADJ = The state word; 
ADJ-W-S = Word sense 
numbers of Cur-ADJ; 
F-Pur = False; 
C-S-ADJ-Comp = True; 



140608 
I 



Cur-Owner = Next untried 
owner in Ad-Mod[Cur-ADJ, 
Clause-Rel-ADJ, 
Cur-Nat-Lang]; 



140612 
I 



Inform the Communication 
Manager of a failure to select a 
^| word sense number for a state 
word with an implied purpose 
relation; 



Remove all but the first default purpose 
entry from Usage- Purpose- 
Set and its corresponding word sense 
number from W-S-Vec; 
Store Usage-Purpose- Set and W-S-Vec 
at the SDS position of Cur-ADJ; 
Goto 140644; 



140625 
J 



140616 
I 



Invo- ADJ-W-S = Word sense 
numbers in ADJ-W-S with a 
general owner match; 
Remove matched word 
senses from ADJ-W-S; 



140618 




140624- 



C-S-ADJ-Comp 
= True; 



140626 




Form the set of purpose entries in 
ADJ-Purpose-Set with an associated 
word sense number, and append to 
Usage-Purpose-Set; 
Append the associated word sense 
number to W-S-Vec; 



140622 



140-Return = 140622; 
Call 50[LOOK-UP, 
STATE-ADJ, Cur-ADJ, 
Invo-ADJ-W-S, ADJ- 
Purpose-Set, 140-Return]; 



140628— 



140-Return =140632; 
CallHOIREL-SELECT, 
Cur-Clause, R-S-Check- 
Set, 140-Return]; 




Return 
to caller; 



FIG. 210 



Remove all default purposes from 
Usage-Purpose-Set; 

Remove and compress the corresponding 
word sense numbers from W-S-Vec; 
Store Usage-Purpose-Set and W-S-Vec at 
SDS positon of Cur-ADJ; 



140644 



140648 



Call Cur-App[State-Chang- 
Path-Fail, Initial-Node, Cur-Node, 
Result-Type, R-Add, 140-Return]; 



153 



Inform the Communication 
Manager of a path find 
failure for a state change 
path realization; 




S-V-1 = Next untried initial state of 
lnit-S-V-Policy[Cur-Clause]; 
S-V-2 = Next untried final state of 
lnit-S-V-Policy[Cur-Clause]; 
C-Proceed-Type = Next failure 
handling value of 
lnit-S-V-Policy[Cur-Clause]; 



RESTART = False; 

Purpose-Set - purposes at entry's state 
with direction S-V-1 to S-V-2; 
Invocation-Type = STATE; 
140-Return = 140656; 
Call 140[PATH-FIND, Invocation-Type, 
Purpose-Set, S-V-1 , S-V-2, C-Proceed- 
Type, P-F-Check-Set[STATE], Other- 
Checks[STATE], RESTART, 
Result-Type, 140-Return]; 



-140662 



■140672 



140688 



1 



Purpose-Set = Entries with stored purposes 
in Cur-Clause's Context-Purpose-Set; 
Invocation-Type = Purpose-Path; 
140-Return = 140690; RESTART = False; 
Call 140[PATH-FIND, Invocation-Type, 
Purpose-Set, Cur-Clause, S-V-1, S-V-2, 
Proceed-Type [Purpose-Type], 
P-F-Check-Set[Purpose-Path], 
Other-Checks[Purpose-Path], RESTART, 
Result-Type, 140-Return]; 



140700 



Inform the Communication 
Manager of a path find 
failure for a purpose path 
realization; 



Call Cur-App[Purpose-Path-Fail, 
Cur-Purpose, Cur-Node, 
Result-Type, R-Add, 140-Return]; 



Pur-Rel = Cur-Purpose; 
Pur-Rel-P-F=True; 
Unstored-Rel = False; 
Store path data in the SDS; 



140708 
I 



Add Cur-Purpose 
to 120; 

Go to 140710; 



FIG. 21 P 



140710 
I 



Cur-C-Proc = False; 



140711 




140712 
I 



Purpose-Set = Union of (ALL-M, S-M, IO-M, DO-M, IAD-M, AS-M, Process-Set); 
Invocation-Type = PROCESS; 
RESTART = False; 
140-Return = 140714; 

Call 140[PATH-FIND, Invocation-Type, Purpose-Set, Cur-Clause, 
Proceed-Type[PROCESS], P-F-Check-Set[PROCESS], 
Other-Checks[PROCESS], RESTART, Result-Type, 140-Return]; 



140714 



140716 




140718 
I 



Call Cur-App[Process-Path-Fail, 
Cur-Purpose, Cur-Node, 
Result-Type, R-Add, 140-Return]; 



Store path data in the SDS; 
Cur-C-Proc = True; 



140720 
I 



Inform the Communication 
Manager of a path find failure 
in a process path realization; 



140724 




140726 
I 



140-Return = 140730; 

Call 170[PLAUS-EXP-CHECK, Cur-Clause, 

Cur-App, Result-Type, P-E-Vec, 140-Return]; 



;3SCt 


F 






140730 




















>^ Result-Type^y ^ 
\ = SUCCESS/^ 1 












n 




140740 
I 


T | 140732 




Store states of stated 




Store P-E-Vec at the SDS 




adjectives in 


< 


position of Cur-Clause's 




Cur-Clause at 
Invocation-State-Set; 




verb or clause implying 
adjective; 



140734 



Plaus-Expect- 
Fail is true 



140738 
_l 



Inform the Communication 
Manager of a plausibility 
and expectedness check 
failure; 




140744 
I 



140736 
_l 



140-Return = 140732; 
Call Cur-App[Plause-Expect- 
Check-Fail, Cur-Clause, 
P-E-Vec, 140-Return]; 



140-Return = 140746; 

Call 50[ADJECTIVE-COMPLETION, 

Invocation- State-Set, 140-Return]; 



140748 



If 

Cur-App[Other- 
Checks] is true 



14a Return = 140750; 
Call Cur-App[0-Checks, 
Cur-Clause, 140-Return]; 




FIG. 21Q 



140750 




140752 
I 



140-Return = 140790; 

Call Cur-App[App-Time-Check, 

Cur-Clause, 140-Retum]; 



Go to 
140790; 



140760 



140756 



Start-Time = End-Time 
of first default time 
related clause; 
Def-Tlme = True; 




140758 
I 



Max-Time-Change = The largest time 
value of a path of Cur-Purpose; 
Start-Time = Max-Time-Change + 
Cur-Time of Initial-Clause on found 
purpose path of Cur-Clause; 
Def-Tlme = False; 



T 



140762 




140764 
I 



140766 



For each State-Check-Set entry with a known 
initial state: find the largest time value of the 
state change path and add it to the initial state's 
time point; 

S-Start-Time = The largest time value 
computed for such State-Check-Set entries; 




140768 
I 



Start-Time 
= S-Sta rt- 
Time; 



140770 



140772 




140778 




140780 
l_ 



End-Time = 
Start-Time + the 
largest time value of 
the selected process; 




140776 
I 



Inform the Communication 
Manager of a time error 
discrepancy; 



End-Time = 
Start-Time; 



140788 
I 



Store Start-Time and 
End-Time at Cur-Clause's 
SDS position; 
Goto 140790; 



140784 



End-Time = Start-Time + the 
time of the typical process; 
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140790 



140792 



140806 



Modal-Dif = 
ICur-Modal minus 
the stated modal 
valuel; 



u 




140800 

I 

Inform the Communication 
Manager of a modal error 
discrepancy; 



140798 




Inform the Communication 
Manager of an output 
formation error; 



Purpose -Type = 
PURPOSE-MODIFICATION; 



140816 




If 

T X Pur-Rel is 
C an established 
purpose 



Purpose-Type = 
NEW-PURPOSE; 



140818 
I 



Purpose -Type = 
PURPOSE-CONTINUATION; 



140822 
I 



140-Return = 140824; 
Call Cur-App[RESPONSE, 
Cur-Clause, Unstored-Ret, 
Purpose-Type, Cur-C-Proc, 
State-Check-Set, Action-Type, 
Action-List, 140-Return]; 



140826 




Next-Clause = Next unprocessed 
clause in Action-List; 
Next-Pos = Next unused location in 
Out-List; 

Out-List[CLAUSE, Next-Pos] = 
Next-Clause; 

Out-List[PUR-CLAUSE, Next-Pos] 
= Preceding clause of Next-Clause's 
purpose or NEW; 
Out-List[PUR-REL, Next-Pos] 
= Next-Clause's purpose; 



140827 
I 



Init-Pos = Next unused 
positon in Out-List; 
Cur-Resp-Pur-Address = 
Purpose address of the 
response; 

Response-Object = Address 
of the previous input SDS; 
Cur-Resp-Func = Function 
of the response purpose; 




140834 



Out-List[CLAUSE-TYPE, Next-Pos] = 
ENUMERATED-STATE; 
Out-List[OWNER, Next-Pos] = 
Context, general type, stored, or 
designated owner; 

Out-List[VERB, Next-Pos] = Verb word 
sense number implied by Next-Clause's 

type; 

Subject-Number = S-Number[Cur- 
Nat-Lang, Out-List[OWNER, Next-Pos]]; 
Go to 140842; 



FIG.21S 



140838 




un 
5 



Out-List[CLAUSE-TYPE, Next-Pos] = 
EN UMERATED-RESULT-STATE; 
Out-List[SUBJECT, Next-Pos] = 
Context, general type, stored, or 
designated subject; 

Out-List[VERB, Next-Pos] = Designated 
verb word sense number; 
Out-ListpNDIRECT-OBJECT, Next-Pos] = 
Context, general type, stored, or 
designated indirect object; 
Out-ListpiRECT-OBJECT, Next-Pos] = 
Context, general type, stored, or 
designated direct object; 
Subject-Number = S-Number[Cur- 
Nat-Lang, Out-List[SUBJECT, Next-Pos]]; 



140840 



1 



Out-List[CLAUSE-TYPE, Next-Pos] = 
EN UMERATED-NO UN-RELATION; 
Out-List[SUBJECT, Next-Pos] = 
Context, general type, stored, or 
designated modrfiee of the relation or 
clausal abstract noun; 
Out-List[VERB, Next-Pos] = Verb word 
sense number implied by the type of 
relation or by the clausal abstract noun; 
Out-List[RELATION , Next-Pos] = Noun 
referent or noun relation; 
Subject-Number = S-Number[Cur- 
Nat-Lang, Out-List[SUBJECT, Next-Pos]]; 



140846 




140850 
I 



TENSE = Next-Clause's given tense type; 
Tense-Excp = Tense-Rel[Cur-Nat-Lang, 
Out-ListpUR-REL, Next-Pos], 
Out-ListpUR-CLAUSE, Next-Pos], TENSE, 
Tense-Rule]; 

Out-List[TENSE-EX, Next-Pos] = 

Tense-Rule; 

TENSE = Tense-Excp; 



140852 
I 



MOOD = Next-Clause's given mood; 
MODAL = Next-Clause's given modal; 
VOICE = Next-Clause's given voice; 
Tense-Code = T-C ode [Cur-Nat-Lang, 
MOOD, MODAL, TENSE, VOICE, 
Subject-Number]; 

Out-List(TENSE-CODE t Next-Pos] = 
Tense-Code; 




Out-List[OBJECT, Next-Pos] = 
Next-Clause's state abstract 
nouns or noun relation 
complements, and conjunction 
codes; 



Out-List[COMPLEMENT, Next-Pos] = Next-Claused 1 
or more: states, noun relation complements, state or 
function word and noun relation complements or 
clausal abstract noun's representational referents, 
with conjunction codes; 



FIG.21T 



140880 
I 



140-Return = 140882; 

Call Dy-Pur-NamePynamic-Purpose- 

Parameters, Pur-Set, W-S-No, Pro-Type, 

P-F-C-Set t Other-C, SDS-Tem, D-Parm, 

140-Return]; 



140882 



Invocation-Type = PROCESS; 

Purpose-Set = Pur-Set; 

Cur-Clause = W-S-No; 

RESTART = Invo-RS; 

140-Return = 140884; 

SDS = SDS-Tem; 

D-Spec-Vec = D-Parm; 

Call 140[PATH-FIND, Invocation-Type, 

Purpose-Set, Cur-Clause, Pro-Type, 

P-F-C-Set, Other-C, RESTART, 

Result-Type, 140-Return]; 



140884 

I 

Return Dy-Pur-Name[Path-Report, 
Cur-Purpose, Cur-Node, 
Result-Type, R-Add]; 



140900 



140-Return = 140902; 
Call Class-Name[lnvo-Obj, 
Classification-Purpose-Parameters, 
Pur-Set, W-S-No, Pro-Type, P-F-C-Set, 
Other-C, SDS-Tem, C-Parm, 140-Return]; 



140902 



Invocation-Type = PROCESS; 
Purpose-Set = Pur-Set; 
Cur-Clause = W-S-No; 
RESTART = Invo-RS; 
140-Return = 140904; 
SDS = SDS-Tem; 
C-Spec-Vec = C-Parm; 
Check-Object = Invo-Ciasifiee; 
Call 140[PATH-FIND, Invocation-Type, 
Purpose-Set, Cur-Clause, Pro-Type, 
P-F-C-Set, Other-C, RESTART, 
Result-Type, 140-Return]; 



140904 



Return Class-Namepath -Report, 
Cur-Purpose, Cur-Node, 
Result-Type, R-Add]; 



FIG. 21 U 



140950 



Transfer InvoP-No parameters from 
Invo-Table to Pur-Desc-Table; 
140-Return = 140952; 
Call lnvo-Pur-Desc-Name[Pur-Desc-Table]; 



140952 



Return Result-Table 
to caller; 



FIG. 21V 



17000 



17010 



in 




Append implicit sentence 
role run time plausibility and 
expectedness checks of 
Cur-App to their associated 
check sets; 



FIG. 22A 



170100 




Go to 
170200; 



170106 
I 



Store a pointer to P-E-Vec 
of Cur-Clause in 120; 
Result-Type = SUCCESS; 
Return to caller; 



170112 
_l 



170110 
I 



P-E-Vec[AII-Plausibility- 
Values] = Related P-E-Vec; 
P-E-Vec[AII-Expectedness- 
Values] = 1 ; 

Result-Type = SUCCESS; 
Return to caller; 



P-E-Vec[AII-Expectedness- 
Values] = 0; 



P-E-Vec[Process- 
Path] = 1 + relative 
frequency of the 
path; 



170114 



m 




170116 
I 



P-E-Vec|CONSTITUENTS] 

= 1; 




170120 
I 



P-E-Vec[Purpose-Path] 
= 1 + relative frequency 
of the path; 



170124 
l_ 



P-E-Vec[Combo- 
Purpose-Path] = 1 ; 



170128 



P-E-Vec[New- 
Purpose-Path] = 1 ; 



P-E-Vec[State-Change- 
Path] = 1 + relative 
frequency of the path; 



170146 




170148 



P-E-Vec[Combo-State- 
Change-Path] = 1 ; 



170150 




170152 



P-E-Vec[New-State- 
Change-Path] = 1 ; 



FIG. 22B 



P-E-Vec[Exp-Avg] = 
P-E-Vec[CURRENT] - 
P-E-Vec[Cur-App[Exp]]; 
Go to 170200; 



- 170154 



170200 




170202 
I 



Result-Type = SUCCESS; 
Return to caller; 



170204 
I 



P-E-Vec[AII-Plausibilrty- 
Checks] = 0; 



170206 



Goto 
170240; 



170212 

L 



fete? 




170216 



170220 
I 



CLASS = Purpose-Benefits; 
RS = False; 

Invo-Obj = Cur-Purpose; 
170-Return = 170222; 
Call 140[CLASSIFY, CLASS, 
RS, Invo-Obj, 1 70-Return]; 



Goto 
170240; 



P-E-Vec[Doer-Purpose-Ben] = 
P-E-Vec[Rcvr-Purpose-Ben] = 
Cu r-App[[D efa u It-P urpo se -Ben] ; 



170222 




170226 
I 



Evaluate all terminal node functions; 
Add up doer benefits to form Doer-Ben; 
^ Add up receiver benefits to form Rcvr-Ben; 
P-E-Vecpoer-Purpose-Ben] = Doer-Ben; 
P-E-Vec[Rcvr-Purpose-Ben] = Rcvr-Ben; 



170224 



1 70-Return = 170226; 
Call Cur-App[Purpose- 
Benefrts-C lassrfy-Fa il , 
Ben-Purpose, Cur-Node, 
Result-Type, R-Add, 
1 70-Return]; 



170232 
I 



Inform the Communication 
Manager of implausible 
benefits for Cur-Purpose; 



170228 




Goto 
170240; 



FIG. 22C 



170240 



If 

r Cur-Clause is^ 
on a purpose 
path 



170266 
I 



P-E-Vecpoer-Clause-Ben] = 1; 
P-E-Vec[Rcvr-Clause-Ben] = 1 ; 
NEXT = 1 ; 



170242 



If 



Cur-Clause has 
multiple doers and/or 
receivers 



170244 
I 



Separate Cur-Clause into 
separate clauses with 
Cur-App[J-Sep-Policy]; 
CUR-Clause = 1st 
separated clause; 
NEXT=1; 



170243- NEXT=1; 



170246 



170248 




P-E-Vec[Doer-Clause-Ben] = 
P-E-Vec[Rcvr-Clause-Ben] = 
Cur-App[[Default-Clause-Ben]; 



170268 
I 



P-E-Vecpiausibility] = 
P-E-Vec[CURRENT| - 
P-E-Vec[Cur-App[Plaus]]; 



170270 




Inform the Communication 
Manager of an implausible 
plausibility value for 
Cur-Clause; 



170274 



170278 



TEMP[NEXT| = P-E-Vec; 4 



170250 



170280 



CLASS = Clause-Benefits; 

RS= False; 

Invo-Obj = Cur-Clause; 

170-Retum= 170252; 

Call 140[CLASSIFY, CLASS, 

RS, Invo-Obj, 170-Return]; 





170282 
1 



Store a pointer to 
TEMP at P-E-Vec; 
Sep-CIa = NEXT; 



170284 



Combine the P-E-Vec's 
with the Cur-App[P-E- 
Comb-Policy]; 



170276 
I 



Cur-Clause = Next unprocessed, 

separated clause; 

Store P-E-Vec at TEMP [NEXT]; 

NEXT = NEXT + 1; 

Zero clause plausibility 

components of P-E-Vec; 

Go to 170246; 



170286 
I 



Result-Type = SUCCESS; 
Return to caller; 



170252 




170-Retum = 170256; 
Call Cur-App [Clause- 
Be nefrts-C la ssHy-Fa il , 
Ben-Purpose, Cur-Node, 
Result-Type, R-Add, 
1 70-Retum]; 



170256 
I 



170258 



Evaluate all terminal node functions; 
Add up doer benefits to form Doer-Ben; 
Add up receiver benefits to form Rcvr-Ben; 
P-E-Vec[Doer-Clause-Ben] = Doer-Ben; 
P-E-Vec[Rcvr-Clause-Ben]= Rcvr-Ben; 



170262 
I 



Inform the Communication 
Manager of implausible 
benefits for Cur-Clause; 




Goto 
170268; 



FIG. 22D 



160000 



160010 
I 



Initialize Steps 12 and 18 of 
Natural Language 
Processor(s) 10; 
Initialize non-Textual Language 
Processors 40; 
NEX = 0; 

Error-Action = False; 
Delay-Out = Error-Out = False; 



160012 



160020 





160016 
I 



Send out greeting 
message(s) to 
output device(s); 



160014 



Call Init-App- 
Process; 



160018 



Go to Step 1 2; 



160022 
I 



Go to Error- Return; 



160032 



Go to 

160-Return 



NEX = NEX + 1; 
DELAY[PUR, NEX] = Err-Node; 
DELAY[E-S, NEX] = Error-Source; 
DELAY[CAN, NEX] = Cancel-Criteria; 
DELAY[Err-Out, NEX] = 
OUTLIST[Star-Posto Next-Pos]; 
DELAYfOut-Criteria, NEX] = 
Output-Criteria; 

DELAY[ACTION, NEX] = Error-Act; 
Go to 160042; 



160036 



Call 125 to catergorize 
and store the stated and 
implied elements and 
relations of Cur-Clause 
in 120; 



Error- Action = Error- Act; 




160046 
I 



Evaluate the cancel criteria in 
DELAY[CAN, X]; 
Remove satisfied entries; 
Compress DELAY; 
Adjust NEX; 

Evaluate the delay criteria in 
DELAYIOut-Criteria, X] until a 
satisfied entry, S, is found; 
OUTLIST = DELAY[Err-Out, S]; 
Err-Node = DELAY[PUR, S]; 
Error-Source = DELAY[E-S, S] 
E-A = DELAY[ACTION,S]; 
Remove the S entry; 




160038 
I 



Store a purpose entry 
at Context-Purpose- 
Set: Err-Node 
function, Err-Node, 
Error-Source, 1st error 
output clause pointer, 
ERROR-COM; 
Error-Out = False; 



160054 
I 



Store a purpose entry at Context-Purpose-Set: 
Cur-Resp-Func, Cur-Resp-Pur-Address, Response- 
Object, 1st response clause, RESPONSE-SEL; 
Initialize Star-Pos; 

OUTLIST[Star-Posto Nex-Pos] = Out-List[lnit-Pos to 
Next-Pos]; 



160040 
I 



Next-Out = 

OUTLIST[Star-Posto 

Nex-Pos]; 

RETURN = Step 18; 
Call 200[Cur-Nat-Lang, 
Next-Out, Star-Pos, 
Nex-Pos, RETURN]; 



FIG. 23A 



160200 
I 



Cur-Error = The "inform" 
word sense number; 
Err-Node = Cur-Error's 
owned purpose realization 
entry in 130; 

Dynamic-Purpose -Name = 
Cur-Error's error function 
address; 



160202 



160240 




160206 




E-Output = Err-Node 
Err-Out function 
address; 



160208 



Inform the Communication 
Manager of a failure 
processing error; 



160242 
I 



160-Return = 160244; 
RS = False; 
Goto140[DYNAMIC, 
Dynamic-Purpose- 
Name, RS, 160-Return]; 



160210 



160212 



Replace variable references in 
E-Output clauses with values; 
Star-Pos = Next unused 
position in OUTLIST; 
Store E-Output clauses starting 
at OUTLIST[Star-Pos]; 




160214 
I 



Delay-Out = False; 
Error-Out = True; 



160218 




160220 
I 



160222 



160246 
I 



160-Return = 

160244; 

Go to Dynamic- 

Purpose-Name[ 

160-Return]; 



160244 
I 



Cur-Error = 
Error-Word- 
Sense-Number; 
Err-Node = 
Cur-Error's owned 
130 entry; 
Goto 160204; 



Delay-Out = True; 
Output-Criteria = 
DELAY-0 address; 
Cancel-Criteria 
CANCEL criteria from 
Err-Node; 
Error-Out = False; 



160224 



Error-Act = True; 
Dynamic-Pur-Name = 
Err-Node's 
Err-Response-Act 
function; 



160228 
I 



Error-Act = False; 



160230 
I 



> Call 160[CONTINUE]; 



Dynamic-Pur- 
Name is a dynamic 
.purpose address 



160226 
I 



160-Return = 160244; 
RS = Err-Node's 
Res-Value; 
Error-Return = 
140[DYNAMIC, 
Dynamic-Pur-Name, 
RS, 160-Return]; 



160-Return = 160244; 
Error-Return = 
Dynamic-Pur-Name[ 
160-Return]; 



FIG. 23B 



20000 
I 



Cur-Pos = Sta-Pos; 
End-Pos = Nex-Pos; 
Next-S = 1; 
S-Cla-No = 0; 

Owning-Pro-V[Cur-Pos to End-Pos] = -1 ; 
Store a 0 at the position of a clause with 
an owning relation; 

Owned-Pro-V[Cur-Posto End-Pos] = -1; 

Store a 0 at the position of a clause with 

an owned relation; 

Cur-O-Clause = Next-Out[CLAUSE, 

Cur-Pos]; 



20002 



20004 



200-Return = 20070; 
Call Cur-App[Out-Proc, 
200-Return]; 



Tense-Code = Next-Out[ 
TENSE-CODE, Cur-M-Pos]; 
N = M-Clause-Parse-Add[ 
Tense-Code, 0]; 

Clause-Set = M-Clause-Parse-Add[ 
Tense-Code, 1 to N]; 
Pref-Vec = 0; 

C-Parm-C[SUBCL] = SUBCLAUSE; 
C-Parm-C[APP] = Cur-App; 
C-Parm-C[Full-Ex] = Number of 
clauses since full expression of 
M-Clause or -1 ; 

C-Parm-C[Pro-Ex] = Number of 
clauses since pronoun expression of 
M-Clause or -1 ; 

C-Parm-C[Morph-Ex] = Number of 
clauses since morphological 
expression of M-Clause or -1 ; 
C-Parm-C[M-Cla] = Cur-M-Pos; 
RETURN = 20020; 
RS = False; 

CLASS = MC-Exp-Pref; 

Call 140[CLASSIFY, CLASS, RS, 

Clause-Set, RETURN]; 




Inform the Communication 
Manager of a subordinate 
clause expression failure; 



FIG. 24A 



e 



iU 



20050 

| 

S-Clause-Set= Cur-M-Cla-Add[ 
Tense-Code, 1 to M]; 
Pref-S-Form = 0; 
Pref-S-Pos = 0; 

C-Parm-S[A-Pos] = A-S-C-Vec; 
C-Parm-S[APP] = Cur-App; 
C-Parm-S[Purpose] = 
Next-OuqCur-Rel, Cur-S-Pos]; 
C-Parm-S[S-Clause-No] = S-Cla-No; 
C-Parm-S[Selected-Sub-Pur-Set] = 
SDSO[Next-S, A-S-C-Vec, Pur]; 
C-Parm-S[Full-Ex] = Number of 
clauses since full expression of 
Cur-S-Clause or-1; 
C-Parm-[Pro-Ex] = Number of 
clauses since pronoun expression of 
Cur-S-Clause or -1 ; 
C-Parm-S[Morph-Ex] = Number of 
clauses since morphological 
expression of Cur-S-Clause or -1 ; 
C-Parm-S[S-Cla] = Cur-S-Pos; 
RETURN = 20052; 
RS = False; 

CLASS = SC-Exp-Pref; 

Call 140[CLASSIFY, CLASS, RS, 

Clause-Set, RETURN]; 



20068 
I 



SDSO[Next-S, M-Cla-Pos, ADD] = 
Cur-M-Cla-Add; 

SDSO[Next-S, M-Cla-Pos, N-O-Pos] = 
Cur-M-Pos; 

SDSO[Next-S, M-Cla-Pos, Pref-lmp] = 
Cur-M-Cla-Add[IMP]; 
A-S-C-Vec[S-Cla-Pos] = 1; 
COORD = False; 
Go to 20070; 




Cur-S-Add = Cur-M-Cla-Add[S-Tense-Code, 
Pref-S-Form]; 

S-Cla-Pos = Cur-M-Cla-Add[ S-Tense-Code, 
Pref-S-Pos]; 

Pref-lmp-Vec = Cur-S-Add[IMP]; 
Append Pref-lmp-Vec to 
SDSO[Next-S, S-Cla-Pos, Pref-lmp]; 
Append Cur-S-Add to 
SDSO[Next-S, S-Cla-Pos, ADD]; 
Append Cur-S-Pos to 
SDSO[Next-S, S-Cla-Pos, N-O-Pos]; 
Owned-Pro-V[Cur-S-Pos] = 1; 
SDSO[Next-S, S-Cia-Pos, PUR] = 
C-Parm-S[Purpose]; 
A-S-C-Vec[S-Cla-Pos] = 1; 
S-Cla-No = S-Cla-No + 1 ; 



20060 



20064 





20066 
_L 



Owning-Pro-V[Cur- 
M-Pos] = 1 ; 



T 


20062 




1 


Cur-S-Pos = 


= Next 


untried, unprocessed 


owned clause of 


M-Clause; 




Pref-Vec = All values 


as tried; 




Go to 20032; 



FIG. 24B 



20070 

I 

SDSO-Pos = Next "1 " position in A-S-C-Vec; 
IC = True; 

Cur-I-V = First address at 
SDSO[Next-S, SDSO-Pos, Pref-lmp]; 
Cur-Cla-Add = First address at 
SDSO[Next-S, SDSO-Pos, ADD]; 
Nex-O-Pos = First address at 
SDSO[Next-S, SDSO-Pos, N-O-Pos]; 
Clear such addresses at SDSO; 
SDS[Current] = Next SDS entry; 



20076 
I 




20074 



Cur-S-R-Add = Address of next unprocessed sentence role 

at Cur-Cla-Add in 30; 

Morph-CIa = In-Call = False; 

Cur-S-R-Head = Head of sentence role phrase at 

Cur-S-R-Add; 

Cur-S-R = The sentence role; 

Cur-Source = 1 st entry at Next-Out[Cur-S-R, Nex-O-Pos]; 
Cur-lmp-V= Cur-l-V[Cur-Source]; 

Cur-Source-Head = Head, modifiers, and any function word 
vector of Cur-Source; 



20078 



Cur-lmp-V = Cur-I-V; 
Morph-CIa = True; 
Cur-S-R = Sentence 
role of Cur-Cla-Add; 
In-Call = False; 



If 



Cur-Source has x 
a morphological 
Jmple mentation, 
vector 



20079 
I 



Append the 
morphological 
vector to 
Cur-lmp-V; 



20081 
I 



20080 
I 



Spec-Morph-W = True; 



20082 



Base-Word-Set = 
M-BW-Set = 0; 




20084 



Spec-Morph-W = False; 



20086 



Morph-Call = False; 
Fail -Return = False; 
Go to 2001 00; 



20089 



Ellip-Call = False; 
Coord-Check = False; 
Sentence-Check = False; 
Mod-Check = False; 
Go to 200200; 



20091 




U-Mod-C = Cur-App[U-M]; 

In it-Head = Back-Track = True; 

Fail-Return = Fail-C = M-Word = Art-Real = False; 

Entry-No = N-Mod = Sep-Mod = 0; 

MOD = 1; 

Cur-S-R[MODIFIER, Entry-No, MOD] = Cur-Source-Head's word 
sense number; 

Cur-S-R[RELATION, Entry-No, MOD] = Cur-Source's sentence role; 
Go to 200300; 



20095 



In-Call = A-Call = 
Go to 200800; 



False; 



In-Call = False; 
Go to 200940; 



FIG. 24C 



# 



200100 




SOURCE = Cur-Source-Head type; 
DESTINATION = Cur-S-R-Head type; 
Func-Type = lmp-Morph-F-T[Cur-Nat-Lang, 
SOURCE, DESTINATION]; 
T-|-V=Cur-lmp-V; 

Morph-W-S = Cur-Source's head word 
sense number; 



Func-Type = Cur-lmp-V[ Fun-Type]; 
SOURCE = Cur-lmp-V[SOURC]; 
DESTINATION = Cur-lmp-V[DEST]; 
Cur-S-R = Cur-Imp- V[S-Role-Func]; 
Morph-W-S = Cur-Imp- V[Morph-Word-S]; 
B-Word-Set = Cur-!mp-V[B-Word-S]; 



200106 
I 



B-Word-Set = Set of text base 
words of Morph-W-S in 20; 



200108 



200130 
L 



Affix-Code = Morph-Out[Cur-Nat-Lang, 
SOURCE, DESTINATION, Func-Type]; 
Base-Word-Set = Base words in B- Word-Set 
plus the affix text set associated with the 
Affix-Code for base words which have an 
associated affix text set; 



200134 



Cur-Imp- V = 
Cur-Imp- V[ 
MOD]; 



200133 
_l 



Cur-lmp-V = T-l-V; 





200110 



Reorder B-Word-Set so the 
1 20 usages are ordered in 
the most recent first, 




200112 



Remove base words from 
B-Word-Set which have a no 
use anomaly for Func-Type; 
Replace base words which 
have a substitute for the 
Func-Type anomaly; 



200114 




200148 



Cur-Source-Head = 
Morph-Mod[ 
Func-Type, 
MODIFIER/TEXT- 
WORD/WORDSET, 
Cur-Fun-No]; 



200144 
I 



Fun-No = Morph-Mod[ 
Func-Type, COND, 
Cur-Fun-No]; 



FAIL = True; 
Return to 
caller; 



200120 
I 



Inform the Communication 
Manager of a standard 
morphology function 
selection failure; 



FIG. 24D 



200200 
I 



C-Parm-E/P[Object-V, 1 to 5] = False; 




C-Parm-E/P[Object-V ( Phrase] = 
True; 

Cur-S-RfTEXT, text range] = 
Text from 120; 
E/P-Obj = 

Cur-S-R[TEXT t text range]; 



200204 
I 



C-Parm-E/P[Object-V, 
Coord-Sentence] = True; 
E/P-Obj = SDS[Current]; 



200208 



C-Parm-E/P[Object-V ( 
Coord-Phrase] - True; 
E/P-Obj = Cur-S-R; 



200212 



C-Parm-E/P[Object-V, 
Sentence] =True; 
E/P-Obj = SDS[Current]; 



200216 
I 



C-Parm-E/P[Object-V, 
Modifier] = True; 
E/P-Obj = Check-Mod; 



200220 



C-Parm-E/P[Full-Ex] - Number of 
phrases since full expression of 
E/P-Obj or -1; 

C-Parm-E/P[Pro-Ex] = Number of 
phrases since pronoun expression of 
E/P-Obj or -1; 



200222 
I 



C-Parm-E/P[APP] = Cur-App; 
Ellip-Out-Pos-V = 0; 
Ellip-Trans-Pos-M = 0; 
Pro-Ex-Pos-V = 0; 
RETURN = 200230; 
RS = False; 
CLASS = 

ELLIP/PRO-Ex-Suitability; 

Call 140[CLASSIFY, CLASS, RS, 

E/P-Obj, RETURN]; 




200232 



200234 



Remove the text from 
E/P-Obj for each position 
in Ellip-Out-Pos-V; 




200236 
I 



For each non-zero pair in 
Ellip-Trans-Pos-M: transfer text 
from the source component to 
the E/P-Obj position component; 



200242 
I 



For each sentence role in 
Pro-Ex-Pos-V: 

Pro-Ex = Pro-Select[sentence role]; 
Store each Pro-Ex at its position in 
E/O-Obj; 



200250 

tf \ T 

Ellip-Call 

is true 




200252 



Return 
to caller; 



Go to 
200704; 



FIG. 24E 



200300 



200302 



DMAX = Number of modifiers of the most 
recent reference of Cur-Source; 
Cur-S-RfTEXT, -DMAX to 0] = 
Cur-Source's most recent reference; 
Go to 200700; 



200312 



Select an untried uniqueness setting modifier 
phrase of Cur-Source -Head which sets a 
unique state value or a unique relation to 
word sense numbers in 1 20 with the same 
identification number and type number; 
Modifiers are selected according to 
Cur-App[Mod-Ord-Policy]; 
N-Mod = N-Mod + 1 ; 

Store modifier word sense numbers/relation 
address at Cur-S-R[MODIFIER/RELATION, 
Entry-No + 1 , N-Mod]; 



m 
si 

3 - 

25=5 




FIG. 24F 



200340 



If 

Base-Word-Set 
P 0 and Alt-Real 
is false 



200341 




200343 

I 

Base-Word-Set = 
Base-Word-Set + 
base words of 
Cur-Source-Head; 



200342 



Base-Word-Set = 
Base-Word-Set + 
M-BW-Set; 



200344 




200346 
I 



Order base 
words in 
most recent 
reference in 
120 first; 



200348 




200349 




200350 
I 



Inform the Communication 
Manager of a noun base 
word selection error for 
Cur-Source-Head; 



Go to 
200367; 



200352 
I 



Cur-Wordset = Union of wordsets with codes of 
words in Base-Word-Set with addresses in 
Cur-S-R-Add-Set; 

ArWordset = Addresses in Cur-S-R-Add-Set; 
B-Word-Set = 1st base word plus affix(es) plus 
inflection(s) of Cur-Wordset; 



200354 




200356 




Go to 
200360; 



200358 
I 



Inform the Communication 
Manager of a noun 
wordset selection error 
for Cur-Source-Head; 



FIG. 24G 



u 



Q 

PJ 




200367 



200371 



F 






r 


Go to 


200430; 



FIG. 24H 



200380 




Entry-No = 1; 
New-Ent = 1 ; 



200382 



MOD = 0; 




N-Mod = Cur-S-R[MODIFIER, 


Entry-No, 0]; 






200384 




1 



MOD = MOD + 1; 
Mod-Head = The modifier 
head at Cur-S-R[MODIFIER, 
Entry-No, MOD]; 



=3= 

in 

S3 
n 




Mod-No = Number of direct 
modifiers of Mod-Head; 
New-Ent = New-Ent + 1; 
Cur-S-R[Mod-Loc, Entry-No, 
MOD] = New-Ent; 
Store modrfier word sense 
numbers and relations at 
Cur-S-R[MODIFIER/ 
RELATION, New-Ent, 
1 to Mod-No]; 



200395 
l_ 



Cur-S-R[MODIFIER, New-Ent, 0] = Mod-No; 
Cur-S-R[MOD!FIER, New-Ent, Mod-No + 1 = Entry^No; 
Cur-S-R[Seld-WS, New-Ent, 1 to Mod-No] = 1; 
Cur-S-R[MODIFIER, New-Ent, Mod-No + 2] = MOD; 
Cur-S-R[ADDRESS, New-Ent, 0, 0] = 1; 



200392 



If 



Xur-AppfType-Mod] 
is true, and if Mod-Head 
is: non-morphological, a noun 
head with non-zero type, 
without an assigned typing 
modifier.and with 
^yping modifiers, 



200394 



Mod-No = Mod-No + 1; 
Cur-S-R[MODIFIER/RELATION , 
New-Ent, Mod-No] = Mod-Head's 
typing modrfier word sense numbers/ 
typing relation addresses of Mod-Head; 



FIG. 24 I 



200400 
I 



200402 
I 



Entry-No = 1 ; 
MOD = 1; 
Head-WS=1; 



N-Mod = Cur-S-R[MODIFIER, Entry-No, 0]; 
M-Ent = Cur-S-R[MODIFlER, Entry-No, N-Mod + 1]; 
M-Mod = Cur-S-R[MODIFIER, Entry-No, N-Mod + 2]; 
Modife-WS-No = Cur-S-R[WORDSET, M-Ent, M-Mod, 0]; 
Cur-WS = Cur-S-R[WORDSET, M-Ent, M-Mod, Head-WS]; 
INC = Number of Cur-WS addresses; 



Go to 
200471; 




200404 
I 



M-Word = Alt-Real = False; 
M-BW-Set = 0; 

Cur-Source-Head = Cur-S-R[MODIFIER, 
Entry-No, MOD]; 

Spec-Vec = Cur-Source-Head's implementation 

vector or a standard vector if none; 

Cur-Rel = Cur-S-R[MODIFIER, Entry-No, MOD]; 



200408 



200407 



Alt-Real - Fail-Return = Morph-Call =True; 
SOURCE = Word sense number type of Cur-Source-Head; 
Func-Type = Function type of Cur-Rel morphological 
realizations; 

Morph-W-S = Cur-Source-Head's word sense number; 
Spec-Vec = Spec[M-Rel] or a standard vector rf none; 
Spec-Morph-W - Spec-Vec[REL]; 
RETURN = 200410; 

Call 200[Spec-Vec[ADD], Spec-Vec, RETURN]; 



200418 
I 



Cur-S-R-Add-Set = The non-prepositional 
Cur-Rel and Cur-Source-Head compatible, 
unmarked, addresses of Cur-WS at 
Cur-S-R[ADDRESS, M-Ent, M-Mod t 
Head-WS to Head-WS + INC - 1]; 




200410 




F 






r 


Go to 


200448; 



200422 
I 



Cur-S-R-Add-Set = Cur-S-R-Add-Set plus 
the prepositional Cur-Rel and 
Cur-Source-Head compatible, unmarked, 
addresses of Cur-WS at 
Cur-S-R[ADDRESS, M-Ent, M-Mod, 
Head-WS to Head-WS + INC - 1]; 



200427 
I 



Function word application vector : 
DEG-ADV[Cur-Source-Head, 
Cur- Source -Head's state value]; 



200428 
L 



Fail-C =True; 
FAILED = False; 
Goto 200340; 



FIG. 24J 



140334 



Zero: PATH, In-Path, Active-Path, BACK, 
C-Branch, Assumed-Sentence-Roles, 
Tlme-Vec, S-Cur-Time, Modal-Vec; 
PATH[1,1,1] = PATH[1,1 t 2] = 
Cur-Node; 

BACK[1, 1] = Number of Ad-Source 

addresses at Cur-Node; 

O-Source = Ad-Source; 

Path-No = NODE =1; 

Add 1 to In-Path and Active-Path where it 

is set to PROCESSED; 

Fin-Node = S-Path = False; 



140336 
I 



Next-Node = Next untried Ad-Source 
address at Cur-Node which has an 
access condition set met by the context; 
BACK[Path-No, NODE] = 
BACK[Path-No, NODE] - 1 - the number 
of just failed condition sets; 
Resutt-Type = ACCESS-CONDITION; 
R-Add = 140336; 



140338 




140340 




140342 

If 

N0DE>1 
and Cur-Node is 
common to untried 
Purpose-Set 
.members A 



140354 
I 



Pre-Node = Cur-Node; 
Cur-Node = Next-Node; 
Go to 140360; 



140341 




Go to 
140450; 



Go to 
140462; 



140344 



Set members of Purpose-Set 
which have the same 
Cur-Node link entry to tried; 
Go to 140480; 



Go to 
140480; 



Goto 
140300; 




FIG. 21K 



200478 



Head-WS = M0D = 1; 
Entry-No = 0; 
Cur-Return = 200480; 



200480 



01 



D 



Text-Out = Cur-S-R[ 
BWORD, 0, 1, 1]; 
DMAX = 0; 

Cur-S-R[TEXT, DMAX] = 
Funw-Func[Text-Out, 
Fun-Word]; 
Go to 200700; 




200484 
I 



Fun-Word = 0; 
Delay-Func = 0; 
Funw-Func = Return- 
1 st-Argument-Function; 
Go to Cur-Retum; 



200486 
I 



Access and set Fun-Word, 
Funw-Func, and Delay-Func at 
the address implied by 
Cur-S-R[Fun-W, Entry-No, MOD]; 
Go to Cur-Return; 



200490 
I 



200492 



Entry-No = DM = P-Pos = 0; 
MOD = N-Mod = 1 ; 
Head-WS = Cur-S-R[Seld-WS, 
0,1 

M-Order[Entry-No t O] = 1; 
Cur-Return = 200495; 
P-ADJ = False; 




Text-Out = Cur-S-R[BWORD, Entry-No, MOD, 
Head-WS]; 

Cur-S-R[TEXT, DM] = Funw-Func[Text-Out, 
Fun-Word]; 

Cur-S-R[BWORD, Entry-No, MOD, 0] = DM; 
Next-Ent = Cur-S-R[Mod-Loc, Entry-No, MOD]; 
Cur-S-R[INV t DM, ENT] = Entry-No; 
Cur-S-R[INV, DM, MD] = MOD; 
DM = DM - 1; 



200496 




200514 
I 



M-N = Cur-S-R[MODIFIER, 
Entry-No, 0]; 

ME-E = Cur-S-R[MODIFIER, 
Entry-No, M-N + 1]; 
ME-N = Cur-S-R[MODIFIER, 
Entry-No, M-N + 2), 
T-DM = DM; 

DM = Cur-S-R[BWORD, ME-E, 
ME-N, 0]; 

O-No = Cur-Add's order number; 
Funw-Func - Funw-Func + 
P-ADJ-INS[0-No,DM]; 
P-ADJ = True; 



NEXT = M-Order[Entry-No, 0] + 1 ; 
M-Order[Entry-No, 0] = NEXT; 
MOD = M-Order[Entry-No, NEXT]; 
Go to 200500; 



200519 



200516 



Entry-No = 
Cur-S-R[MODIFIER, 
Entry-No, N-Mod + 1]; 
N-Mod = 

Cur-S-R[MODIFIER, 
Entry-No, 0]; 



Evaluate 




Delay-Fun[DM + 1 toO]; 


Go to 200520; 


i 




F 


200518 



Entry-No = Next-Ent; 

N-Mod = Cur-S-R[MODIFIER, Entry-No, 0]; 
Order the modifier numbers in 
Cur-S-R[MODIFIER, Entry-No, 1 to N-Mod] 
according to each modifier's address 
partition and its wordset position in 30; 
Store the modifier numbers in 
M-Order[Entry-No, 1 to N-Mod]; 
M-Order[Entry-No,0] = 1; 
MOD = M-Order[Entry-No, 1]; 



200508 



Head-WS =Cur-S-R[ 
Seld-WS, Entry-No, MOD]; 
Cur-Add = Cur-S-R[ 
ADDRESS, Entry-No, 
MOD, Head-WS]; 





200510 



Cur-Return = 200492; 
Go to 200482; 

"I 



Determine if succeeding 
word sets meet an anomaly 
pattern; 

Evaluate matched anomaly 
functions; 



200500 



200504 
I , 



PREP[P-Pos, E] = Entry-No; 
PREP[P-Pos, M] = MOD; 
P-Pos = P-Pos + 1 ; 



FIG. 24L 



200520 




Goto 
200674; 



200524 



M-Lim = 1 ; 

Prep-Real = T-Prep-Real= Cur-Prep-Set = 0; 
Dn-Mod = Cur-S-R[MODIFIER, 1 , 0]; 



200526 
I 



Cur-Mod = M-Order[1 , M-Lim]; 

L-Ent = Cur-S-R[Mod-Loc, 1,Cur-Mod]; 

Nx-Mod = Cur-Mod; 



200529 
I 



200528 



Up-Ent[Cur-Mod] = 1; 




200530 
I 



M-Lim = M-Lim + 1 ; 



200540 



> U-Ent = New-Ent; 



200534 



Nx-Mod = Nx-Mod +1 ; 
U-Ent = Cur-S-R[Mod-Loc, 
1,Nx-Mod]-1; 




Up-Ent[Cur-Mod] = U-Ent; 
Cur-Prep-Set = Each P-Pos with 
L-Ent < PREPp-Pos, E] < U-Ent; 
T-P-S = Cur-Prep-Set; 




200546 
I 



PREPp-Pos,E/M] = Ofor 
Cur-Mod's P-Pos; 
Cur-Prep-Set = Cur-Mod's P-Pos; 
T-Prep-Real[1 , Cur-Mod] = 1 ; 



* ► 


Go to 




200548; 



FIG. 24M 



200548 




200552 
I 



Head-WS = Cur-S-R[Seld-WS, 1 , 
Cur-Mod]; 

INC = Number of Head-WS wordsets; 
Cur-DM-Add = Cur-S-R[ADDRESS, 
1 , Cur-Mod, Head-WS to Head-WS + 
INC-1]; 



200554 





200580 
l_ 



Prep-Real[1, 
Cur-Mod] = 1; 
T-Prep-Real = 0; 
Cur-Prep-Set = 0; 



Cur-Pos = Next largest, untried 
P-Pos in Cur-Prep-Set; 
Cur-Ent = PREP[Cur-Pos, E]; 
Cur-Md = PREP[Cur-Pos, M]; 



200558 



1 



C-N-Mod = Cur-S-R[MODIFIER, 
Cur-Ent, 0]; 

N-Ent= Cur-S-R[MODIFIER, 
Cur-Ent, C-N-Mod + 1]; 
N-Md = Cur-S-R[MODIFIER, 
Cur-Ent, C-N-Mod + 2]; 
HD-WS = Cur-S-R[Seld-WS, 
Cur-Ent, Cur-Md]; 
INC = Number of HD-WS 
wordsets; 
Cur-Me-Add = 

Cur-S-R[ADDRESS, Cur-Ent, 
Cur-Md, HD-WS to HD-WS + 
INC - 1]; 




For each P-Pos in 
Cur-Prep-Set: transfer 
PREPP-Pos, E/M]to 
Separate-Mod[(new entry), 
Ent-No/Mod-No]; 
For each DM of a P-Pos 
entry and its modifiers, 
blank Cur-S-R[TEXT, DM]; 
PREP[P-Pos, E/M] = 0 for 
each P-Pos in T-P-S; 
Cur-Prep-Set = 0; 



F 






r 


Goto 


200530; 



200572 





200570 



T-Prep-Real = 0; 



200564 



T-Prep-Real[Cur-Ent, 




Cur-Md] = 1 ; 


►< 




200566 



200568 
I 



Remove all P-Pos in Cur-Prep-Set which 
have T-Prep-Real[PREP[P-Pos, E], 
PREP[P-Pos,M]]=1; 

Transfer 1's in T-Prep-Real to corresponding 
positions in Prep-Real; 
T-Prep-Real = 0] 



Cur-Ent = N-Ent; 
Cur-Md = N-Md; 



FIG. 24N 



200590 



200640 




Goto 
200674; 



Compress Cur-S-RfTEXT, 
-DMAXto P_DM-1]to 
Cur-S-RfTEXT, -DMAXto 0]: 



Dn-Mod = Cur-S-R[MODIFIER, 1 , OJ 
Cur-P1 = Prep-No = 0; 
M-Lim = P_DM = 1 ; 
P1 -Max = The number of 1 's in 
Prep-Real[1 , 1 to Dn-Mod]; 



Cur-Mod = M-Order[1 , M-Lim]; 




M-Lim = M-Lim + 1 ; 



200615 
I 



C-DM = C-DM+1; 
Go to 200600; 



200614 



200598 
I 



P-Max = P1-Max; 

Cur-P = CurP1 + 1 ; 

CurP1 = Cur-P; 

U-Ent = Up-Ent[Cur-Mod]; 

U-N-Mod = Cur-S-R[MODIFIER, U-Ent, 0]; 

U-Mod = M-Order[U-Ent, U-N-Mod]; 

L_DM = Cur-S-RpWORD, U-Ent, U-Mod, 0] + 1 ; 

R_DM = Cur-S-RpWORD, 1 , Cur-Mod, 0]; 

Prep-Form = 0; 

HD-WS = Cur-S-R[Seld-WS, 1 , Cur-Mod]; 
Prep-Form[0] = Cur-S-RpWORD, 1 , Cur-Mod, 
HD-WS]; 
P-Cnt = PFL = 0; 
P_F_L = -1 ; 

P_F_R = CD-M = Pre-Ent = 1 ; 
Prep-No = Prep-No + 1 ; 
Cur-Ent = Cur-S-R[Mod-Loc, 1 , Cur-Mod]; 
Pre-Mod = Cur-Mod; 

Cn-Mod = Cur-S-R[MODIFIER, Cur-Ent, 0]; 
M-Order[Cur-Ent, Cn-Mod + 1] = L_DM; 




Goto 
200617; 



P-Cnt = P-Cnt + 1 ; 
P-Stor[Cur-Ent, P-Cnt] 
= C-Mod; 



200612 
I 



Prep-Form[CL_DM - CR_DM + 
P_F_L to P_F_L] = Cur-S-RfTEXT, 
CL_DM to CR_DMl; 
P_F_L = P_F_L + (CL_DM - 
CRJDM) - 1 ; 



200606 



1 



CL_DM= Cur-S-R[ 
BWORD, Cur-Ent, 
Nx-Mod,0]+1; 




C-Mod = M-Order[Cur-Ent, C-DM]; 
Nx-Mod = M-Order[Cur-Ent, C-DM + 1]; 
CR_DM = Cur-S-RpWORD, Cur-Ent, 
Cur-Mod, 0]; 




FIG. 240 



200617 




y = 



Cur-WS = Cur-S-R[WORDSET, Pre-Ent, Pre-Mod, 
HD-WS]; 

B-Word-No = Cur-S-R[BWORD, Pre-Ent, Pre-Mod, 
HD-WS]; 

INC = Number of Cur-WS's wordsets; 
Cur-Add = Prepositional partition in 
Cur-S-R[ADDRESS, Pre-Ent, Pre-Mod, HD-WS to 
HD-WS + INC -1]; 

C-WDSN = Cur-S-R[MODIFIER, Pre-Ent, Pre-Mod]; 
Cur-DM = Cur-S-R[BWORD, Pre-Ent, Pre-Mod, 0]; 
Det-Sel = False; 

Prep-Func = Function word of preposition selected 
with Cur-AppPrep-Sel] at Cur-Add; 
Prep-Text = Text associated with Prep-Func; 



200620 




200622 
I 



Prep-Text = Prep-Text + 
function words at 
Cur-S-RFEXT, Cur-DM]; 



200628 
I 



Cur-Rel = Cur-S-R[R ELATION, 
Pre-Ent, Pre-Mod]; 
Cur-FWS = The result of evaluating 
functions of Cur-Rel and Prep-Func 
for Det-Sel and C-WDSN to select a 
determiner and degree adverb; 



ry 



200630 

L 



Prep-Text = Prep-Text 
+ Cur-FWS; 



200624 



If 

there is a 
determiner anomaly 
at B-Word-No for 
Cur-WS and 
Prep-Func 



200626 
I 



Cur-Det = The result 
of evaluating the 
anomaly function at 
B-Word-No; 
Det-Sel = True; 



200631 




200632 
I 



Prep-Text = 
Prep-Text; 



"and" + 



200633 




200634 
I 



Insert V at 
Prep-Formp_F_R]; 



200635 
l_ 



Prep-Form[P_F_L + 1] = 

Prep-Text; 

Go to 200644; 



FIG. 24P 



200644 



200655 
I 




P-Max = Cur-P; 
Cur-P = 1; 

P-Stor[Cur-Ent, 0] = P-Max; 
P-Stor[Cur-Ent, -1] = Cur-P; 
Pre-Ent = Cur-Ent; 
Pre-Mod = P-Stor[Pre-Ent, Cur-P]; 



200654 



Blank Cur-S-R|TEXT, L_DM to R_DM]; 
Tx_Cnt = R_DM - L_DM + 1 ; 
Compress Prep-Form[PFL to P_F_R - 1] 
to Prep-Form[Tx_Cnt - 1 to 0]; 
Cur-S-R[TEXT, P_DM to P_DM + 
Tx_Cnt -1] = Prep-Form[Tx_Cnt - 1 to 0]; 
P_DM = P_DM + Tx_Cnt; 
Go to 200636; 



200650 



Cur-P = Cur-P + 1 ; 

Pre-Mod = P-Stor[Pre-Ent, Cur-P]; 

P-Stor[Pre-Ent, -1] = Cur-P; 



200656 
_l 



Cur-Ent = Cur-S-R[Mod-Loc, Pre-Ent, 
Pre-Mod]; 

Cn-Mod = Cur-S-R[MODIFIER t Cur-Ent, 0]; 

CD-M = 1; 

P-Cnt=0; 

Cpn-Mod = Cur-S-R[MODIFIER, Cur-Ent, 0]; 
HD-WS = Cur-S-R[Seld-WS, Pre-Ent, 
Pre-Mod]; 

PR_DM = Cur-S-R[BWORD, Pre-Ent, 
Pre-Mod, 0]; 

X = X such that M-Order[Pre-Ent, X] = 
Pre-Mod; 

Nx-Mod = M-0rder[Pre-Ent,X+1]; 



200652 
I 



Cur-Ent = Pre-Ent; 
C-N-Mod = Cur-S-R[MODIFIER, 
Cur-Ent, 0]; 

Pre-Ent = Cur-S-R[MODIFIER, Cur-Ent, 
C-N-Mod + 1]; 
Cur-P = P-Stor[Pre-Ent, -1]; 
P-Max = P-Stor[Pre-Ent, 0]; 



j 



200659 
I 



Prep-Form [P_F_R] = Cur-S-R[BWORD, 

Pre-Ent, Pre-Mod, HD-WS]; 

P_F_L = P_F_R -1 ; 

P_F_R = P_F_R+ 1; 

Prep-No = Prep-No + 1 ; 

Go to 60618; 




PL_DM = Cur-S-R[BWORD, 
Pre-Ent, Nx-Mod, 0] + 1; 



200660 
I 



C-Ent = Pre-Ent; 
C-N-M = Cpn-Mod; 



200666 
I 



Y = Y such that M-Order[Pre-Ent, Y] = 
P-Mod; 

Nxp-Mod = M-Order[P-Ent, Y + 1]; 
PL_DM = Cur-S-R[BWORD, P-Ent, 
Nxp-Mod, 0] + 1; 



200662 



P-Ent = Cur-S-R[MODIFIER, 

C-Ent, C-N-M + 1]; 

P-Mod = Cur-S-R[MODIFIER, 

C-Ent, C-N-M + 2]; 

C-N-M = Cur-S-R[MODIFIER, 

P-Ent, 0]; 

Cx-Mod = M-Order[P-Ent, 
C-N-M]; 
C-Ent = P-Ent; 



200672 
I 



P_F_R = PR_DM - PL_DM + 1 + P_F_R; 
P_F_L = P_F_R + 2; 

Prep-Form[ P_F_L + 1] = Cur-S-R[BWORD 
Pre-Ent, Pre-Mod, HD-WS]; 
Prep-No = Prep-No + 1 ; 
M-Order[Cur-Ent, Cn-Mod + 1] = PL_DM; 
Go to 200600; 




FIG. 24Q 



200674 




Cur-Sep = 1 ; 

C-Parm-N[CLAUSE] = Cur-Cla-No; 
C-Parm-N[APP] = Cur-App; 
C-Parm-NpREPS] = Prep-No; 
C-Parm-N[SEP-M] = Sep-Mod; 
C-Parm-N[S-R] = Sentence role of 
Cur-S-R; 

C-Parm-N[Cla-Mod] = Number of clauses 

modifying T-Cur-Source-Head; 

C-Parm-N[N-0-Pos] = Nex-O-Pos; 

RS= False; 

RETURN = 200682; 

CLASS = SEP-N-MOD-EXP-PREF; 



200680 
I 



C-Parm-N[S-Mod-N] = Cur-Sep; 
Clause-Add = Sent-Role = TEMPLATE = 0; 
Sep-Mod-Ent = Se pa rate-Mo d[Cur-Sep, 
ENT-NO]; 

Sep-Mod-Mod = Separate-Mod [Cur-Sep, 
MOD-NO]; 

Sep-Mod-NMod = Cur-S-R[MODIFIER, 
Sep-Mod-Ent, 0]; 

Sep-Mod-W= Cur-S-R[MODIFIER, 
Sep-Mod-Ent, Sep-Mod-Mod]; 
Sep-ME-Ent = Cur-S-R[MODIFIER, 
Sep-Mod-Ent, Sep-Mod-NMod + 1]; 
Sep-ME-Mod = Cur-S-R[MODIFIER, 
Sep-Mod-Ent, Sep-Mod-NMod + 2]; 
Sep-ME-W = Cur-S-R[MODIFIER, 
Sep-ME-Ent, Sep-ME-Mod]; 
Call 140[CLASSIFY, CLASS, RS, 
Sep-ME-W, RETURN]; 



200682 
I 



Cur-Sep = Cur-Sep + 1; 
Cur-Sep-Head = Sep-ME-W + 
(Sep-Mod-W + word sense 
numbers of all its modifiers); 



200684 



Next-Out[rEMPLATE[Sent-Role], 
TEMPLATE[N-0-P]] = 
Cur-Sep-Head; 



200686 




200688 
I 



End-Pos = End-Pos + 1 ; 
Next-Out[Associated value names, 
End-Pos] = TEMPLATE[Sto red 
Next-Out parameters and values]; 
Cla-Pos = TEMP LATE[C la use- 
Realization -Position]; 
Append TEMPLATEJC la use-Parse- 
Add] to SDSO[Next-S, Cla-Pos, ADD]; 
Append TEMPLATE[lmp-Vec] to 
SDSO[Next-S, Cla-Pos, Pref-lmp]; 
Append End-Pos to 
SDSO[Next-S, Cla-Pos, N-O-Pos]; 
A-S-C-Vec[Cla-Pos]= 1; 



200690 




200694 



Cur-S-RFEXT-Len] = 
DMAX + 1; 
Return to caller; 



FIG. 24R 



200800 



Cur-Source has 
a text realization 



200804 



V-Source-Head = 
Cur-Source -Head; 




200812 




V-Base-Word-Set = 
Base-Word-Set; 
V-Wordset = 0; 
V-S-R-Add = Cur-S-R-Add; 
V-S-R=Cur-S-R; 



200-Return = 200700; 
Call Cur-App[V-Ex-Pro, 
V-Source-Head, 200-Return]; 



200802 
I 



DMAX = Number of words in Cur-Source - 1 ; 
Cur-S-RIJEXT, -DMAX to 0] = Text at Cur-Source; 
Go to 200700; 



200816 



Inform the Communication Manager 
of a base word selection error for 
V-Source-Head; 



200808 
I 



200810 



Base-Word-Set = Set of 
text base words and codes 
of V-Source-Head; 




200814 



Order Base-Word-Set 
by the most recent first 
policy; 



200826 
I 



Inform the Communication 
Manager of a word set selection 
error for V-Source-Head; 



200822 



200824 



Direct adverbial modifiers of V-Source-Head 
are set to unprocessed; 
V-Wordset = Next, unprocessed wordset + 
codes of a word in V-Base -Wordset which is 
stored at an untried address at V-S-R-Add; 





200832 



V-Mod-Add-Set = The set of addresses at 
V-S-R-Add [V-Wordset] of adverbial 
modifiers; 

V-Mod-Pos-Set[POS, POS-Range] = V 
where V= 1 for an allowed position, and 
V= 0 otherwise; 

V-Mod-Pos-Set[SUB, POS-Range, 0] = 6; 



200828 




Go to 
200918; 



FIG. 24S 



200838 



Go to 
200918; 



V-Mod = The next unprocessed direct 

modifier adverbial subclass of 

V-Source-Head; 

V-Mod-Real-Add[0] = 

ADV-Sub-Real-Add-Func[V-Mod, 

Cur-App, ADD]; 

V-Mod-Real-Len = 

ADV-Sub-Real-Add-Func[V-Mod, 

Cur-App, LEN]; 

ADV-Add = -1; 

LY-WS = False; 



200859 




200840 

L_ 



» ADV-Add = ADV-Add + 1 ; 



200847 
I 



V-Wordset = 0; 
Goto 200822; 



200842 




200844 




F 






200846 




f 1 


Cur-Real = V-Mod-Real- 


Add[ADV-Add]; 




r 200848 



200898 

L 



POS =POS-LY; 
Text-Form = 
LY-Text; 




Go to 
200860; 



200850 
I 



Cur-V-WS = 


Wordset 


at Cur-Real; 




Text- Form = 


Text of 


Cur-V-WS; 





200858 
I 



V-Mod-Pos-Set|TEXT\ POS, AV-No, 
-Tex-Len + 1 to 0] = Text-Form; 
V-Mod-Pos-SetUEXT, POS, AV-No, 
0] = Text-Len; 



200856 
I 



Deg-AV-Text = D-AV-FuncIV-Mod, 
VAL, Cur-V-WS]; 
Text-Form = Deg-AV-Text + 
Text-Form; 

Tex-Len = Tex-Len + Length of 
Deg-AV-Text; 



200854 




200852 



AV-No = V-Mod-Pos-Set[SUB, 
POS,0] + 1; 

V-Mod-Pos-Set[SUB, POS, 0] = 
AV-No; 

V-Mod-Pos-Set[SUB, POS, 
AV-No] = V-Mod; 
Tex-Len = The number of words 
in Text-Form; 

VAL = V-Mod's subclass value; 



200851 
I 



POS = Position number of 
1st V-Mod-Add-Set address 
which contains Cur-V-WS; 



FIG. 24T 



200860 



If 



Cur-Real is a 
morphological 
realization 



200870 
I 



200878 



200892 



Mod-Type = 
ADVERBIAL; 
Go to 200900; 



200862 
I 



V-Vec = Cur-Real's IMP vector 
or a standard vector if none; 
Spec-Morph-W = V-Vec[STATl; 
Cur-Source-Head = V-Mod's 
source word sense number; 
Cur-S-R-Head type = 
ADVERB; 
Fail-Return = True; 
Cur-S-R = 

ADVERBIAL-MODIFIER; 
Morph-Call = True; 
Entry-No = 1 ; 
200-Return = 200864; 
Call 200[200100, V-Vec, 
200-Return]; 



200864 



200868 



Fail-Return ! 
False; 



AV-Wordset = Union of 
word sets + affixes of Base- 
Word-Set entries which have 
an entry in V-Mod-Add-Set; 
BW-SET = Base words + 
affixes associated with a 
wordset in AV-Wordset; 



200866 




200872 



1 



Cur-V-WS = Next untried 
wordset in AV-Wordset; 
POS-Vec = 1 's at vector 
positions corresponding to 
modifier position numbers 
whose address at 
V-Mod-Add-Set has 
Cur-V-WS; 



Go to 
200840; 



200874 



If 

POS-Vec 
is zero 



POS = Next 
untried position 
in POS-Vec; 



If 

POS-Vec 
has an untried 
position 




Text- Form = 1st 
non-"ly" suffix or 1 st 
entry in BW-Set of 
Cur-V-WS; 
Go to 200852; 



200890 



200888 



200876 



If 




LY-WS = True; 
POS-LY= POS; 
LY-Text= 1st 
BW-Set of 
Cur-V-WS; 



AV-Wordset 
has an untried 
wordset 



Go to 
200840; 



FIG. 24U 



u 



in 



200900 
I 



200910 



Cur-Source-Head = V-Morfs 
word sense number and V-Mocfs 
modifiers and function word 
vector (if any); 

Cur-S-R-Add = Addresses of 
Mod-Type prepositional 
complements at allowed modifier 
positions of V-Source-Head; 
Cur-S-R = Prepositional 
complement of Mod-Type; 
Cur-Source = V-Mod; 




V-Vec = V-MocTs IMP vector or 
a standard vector if none; 
Spec-Morph-W = V-Vec[STAT|; 
Cur-S-R-Head type = NOUN; 
Fail-Return = True; 
Morph-Call = True; 
Entry-No = 1; 
200-Return = 200906; 
Call 200[200100, V-Vec, 
200-Return]; 



U-Mod-C = Cur-App[U-M]; 

Fail-Return = In-Call = Init-Head = Back-Track = True; 
FAIL = Fail-C = M-Word = Alt-Real = False; 
Entry-No = N-Mod = Sep-Mod = 0; 
MOD = 1; 

Cur-S-R[MODIFIER, Entry-No, MOD] = Cur-Source- Head's 
word sense number; 

Cur-S-R[RELATION, Entry-No, MOD] = V-Mocfs relation; 

200-Return = 200912; 

Call 200[20088, 200-Return]; 



200912 




Go to 
200950; 




Goto 
200890; 




200916 
I 



A-Prep-Text = Text of Cur-Real's preposition as 
selected by Cur-App[ADV-PREP-Sel]; 
DMX= Cur-S-R|TEXT-Len]; 
Text-Form = A-Prep-Text + Cur-S-R[TEXT, 
-DMX+ 1 toO]; 

Tex-Len = Length of A-Prep-Text + DMX; 
Cur-V-WS = Cur-S-R[Seld-WS t 0, 1]; 
Go to 200851; 



T 






r 


Goto 


200840; 



FIG. 24V 



200918 



200930 




T-Cur-S-R|TEXT, VERB-POS] = 
Text in V-Base-Word-Set of 
V-Wordset; 

T-Cur-S-R[TEXT, AUX-VERB-POS] = 
Text of auxiliary verbs at their 
assigned positions for verb function 
wordsets of V-S-R-Add[V-Wordset]; 
IMAX = EMAX = 0; 



200921 

L 



> A-Mod-S-R[POS-Range] = 0; 



200922 




AV-No = 0 

C-POS = Next POS such that 
V-Mod-Pos-Set[SUB, POS, 0] * 0; 
AV-No = V-Mod-Pos-Set[SUB, 
C-POS, 0] if a C-POS is found; 
V-Mod-Pos-Set[SUB, C-POS, 0] = 0; 



200926 




200928 
I 



Order the adverbials at 
V-Mod-Pos-Set[SUB, C-POS, 1 to 
AV-No] by subclass role according to 
ORDER[SUBCLASS, ENGLISH]; 
For multiple occurrences of the same 
subclass role: 

Order them by shortest Tex-Len first; 
Insert an "and" at the last multiple 
occurrence; 

Insert commas for 3 or more 
occurrences; 




200931 
I 



A-Call = False; 
Go to A-Return; 



Cur-S-R[data] = V-S-R[data]; 
DMAX = The sum of the words in 
T-Cur-S-RUEXT, AUX-VERB-POS], 
T-Cur-S-R[TEXT, VERB-POS], and 
A-Mod-S-R[non-zero adjacent 
modifier positions, text range]; 
DMAX = DMAX - 1 ; 
Cur-S-RUEXT, -DMAX to 0] = Such 
text ordered by position; 




IMAX = A-Mod-S-R[!NIT, 0]; 
Cur-S-R-I[TEXT, -IMAX + 1 to 0] = 
A-Mod-S-R[INIT, -IMAX + 1 to 0]; 
Cur-S-R-IUEXT-Len] = IMAX; 
EMAX = A-Mod-S-R[END, 0]; 
Cur-S-R-E[TEXT, -EMAX + 1 to 0] = 
A-Mod-S-R[END, -EMAX+ 1 to 0]; 
Cur-S-R-E[TEXT-Len] = EMAX; 
Go to 200700; 



200929 
I 



Tex-Len = Sum of 
V-Mod-Pos-Set|TEXT, C-POS, 1 to 
AV-No, 0]; 

A-Mod-S-R[C-POS, -(Tex-Len - 1) 
to 0] = Ordered text of 
V-Mod-Pos-Set[TEXr, C-POS, 
ordered AV-No's, text-range]; 
A-Mod-S-R[C-POS, 0] = Tex-Len; 



FIG. 24W 



200940 



If 

Cur-Source 
has a text 
representation 



Go to 
200802; 



200942 



T-Cur-Source-Head = 
A-Source-Head = Cur-Source-Head; 
AP=0; 

A-S-R = Cur-S-R; 
A-P = False; 




ADJ-PREP-Set = Such 
modifiers; 

Remove such modifiers 
from A-Source-Head; 
A-P = True; 



200956 

L 



A-Call =True; 
Cur-Source-Head = 
-> A-Source-Head; 
A-Return = 200958; 
Go to 200804; 



200958 
I 



Cur-Source-Head = 
T-Cur-Source-Head; 
A-Val = State value of a state 
adjective Cur-Source-Head or 
NULL otherwise; 
A-Cur-S-R[TEXT t ADJ] = Text 
in V-Base-Word-Set of 
V-Wordset; 




ADJ-Deg-ADV-Text = 
D-A-A-Func[Cur-Source~Head, 
A-Val, V-Wordset]; 
A-Cur-S-R[TEXT, ADJ] = 
ADJ-Deg-ADV-Text + 
A-Cur-S-R[TEXT, ADJ]; 



200963 




200965 



V-Source-Head = 
T-Cur-Source-Head; 



200968 
I 



Cur-S-R[data] = A-S-R[data]; 
DMAX = The sum of the words 
in A-Cur-S-RfTEXT, ADJ] t filled 
positions of A-Mod-S-R and 
ADJ-PREP-ModfTEXT, 1 to 
AP, 0]; 

DMAX = DMAX - 1; 
Cur-S-RfTEXT, -DMAX to 0] = 
A-Mod-S-R[PRE-MOD, text 
range] + A-Cur-S-RfTEXT, 
ADJ] + 

A-Mod-S-R[P0ST-MOD, text 
range] + 

ADJ-PREP-ModfTEXT, 1 to 
AP, text ranges] + 
A-Mod-S-R[POST-MOD-PREP, 
text range]; 
Go to 200700 




V-Mod = Next 
unprocessed modifier 
in ADJ-PREP-Set; 
Mod-Type = 
ADJECTMAL-MOD; 
AP = AP + 1 ; 
Go to 200900; 




200949 
I 



Inform the Communication 
Manager of a 
morphological failure for a 
prepositional complement 
modifying an adjective; 



CP = ADJ-PREP-Mod[TEXT t AP, 0]; 
AD J-P R EP- Mo d [T EXT , AP, -CP] = 
"and"; 

If AP > 2, insert commas at other 
adjectival prepositional phrases; 



200950 




A-Call = True; 
Cur-Source-Head = 
A-Source-Head; 
A-Return = 200958; 
Go to 200840; 



200952 
I 



ADJ-PREP-Text = Text of 
V-Mod and determiner as 
selected by Cur-App[ADJ- 
PREP-Sel]; 

DMY = Cur-S-R|TEXT-Len]; 
P-LGT = Number of words in 
ADJ-PREP-Text; 
ADJ-PREP-Mod[TEXT ( AP, 
-(P-LGT + DMY -1)to 0] = 
ADJ-PREP-Text + 
Cur-S-R[TEXT, -DMY + 1 to 0]; 
ADJ-PREP-ModfTEXT, AP, 0] 
= P-LGT + DMY; 
ADJ-PREP-Mod[REL-AP, AP, 
0] = Adjectival prepositional 
relation of V-Mod; 



FIG. 24X 



200700 

_J_ 

Sentence-Check = False; ^ 

Coord-Check = False; 

Mod-Check = True; 

Check-Mod = Cur-S-R|TEXT, 

-DMAXto 0]; 

Ellip-Call = True; 

RETURN = 200702; 

Call 200[200200, RETURN]; 



200702 

I 

DMAX = Remaining words at 
Check-Mod; 
DMAX = DMAX -1; 
Compress Check-Mod to 
Cur-S-RUEXT, -DMAXto 0]; 



200710 



200704 




Go to 
200718; 



DMAX = Words at Cur-S-R; 
DMAX = DMAX -1; 
Compress Cur-S-R to 
Cur-S-RfTEXT, -DMAXto 0]; 
CONJN = Text form of the 
conjunction code at 
Next-Out[Cur-S-R, Nex-O-Pos]; 
Cur-S-R|TEXT, -DMAX] = CONJN; 



200708 



200706 




Sentence-Check = False; 
Coord-Check = True; 
Mod-Check = False; 
Ellip-Call = True; 
RETURN =200710; 
Call 200[200200, RETURN]; 



200716 



200712 




Cur-S-R = Sentence role of next head; 
Cur-Source = Next head at 
Next-Out[Cur-S-R, Nex-O-Pos]; 
Cur-Source-Head = The word sense 
numbers of the head and its modifiers 
and its function word vector; 
Cur-lmp-V= Cur-l-V[Cur-Source]; 
Go to 20078; 



200714 

I 



Add a comma to 
Cur-S-R[TEXT, 0]; 



FIG. 24Y 



200718 



200720 



200722 




T 


Add Cur-lmp-V[CONJ] 






to Cur-S-R[TEXT t 




>^ ► 


-DMAX]; 


►< 




IC = False; 





200721 



Add punctuation of 
Cur-lmp-V[PUNC] to 
Cur-S-R[TEXT,0]; 




200724 
J 



COORD = True; 



200726 



Cur-S-R[TBcr-Len] = DMAX + 1 ; 
SDS[Current] =Cur-S-R[TEXT, 
-DMAX to 0]; 



Go to 
20076; 



200738 
I 



Compress text in SDS[Current]; 
Adjust text lengths; 
Out-Text = SDS[Current]; 



200740 



200731 
I 



A-S-C-Vec[SDSO-Pos] = 0; 



T 


Go to 


> ► 


20070; 



200733 



200732 




Cur-S-R[TEXT, -IMAX + 1 to 0] = 

Cur-S-R-I[TEXT, -IMAX + 1 to 0]; 

Remove Cur-lmp-V[CONJ] from 

SDS[Current]; 

IMAX = 0; 

IC =True; 

Go to 200700; 



200734 




200735 
I 



Cur-S-RrTEXT, -EMAX + 1 to 0] = 
Cur-S-R-E|TEXT, -EMAX + 1 to 0]; 
EMAX = 0; 
Go to 200700; 



200736 
_l 



Sentence-Check = True; 
Coord-Check = COORD; 
COORD = False; 
Mod-Check = False; 
Ellip-Call = True; 
RETURN = 200738; 
Call 200[2OO2OO, RETURN]; 



200754 
I 



Cur-O-Clause = 
Next-Out[CLAUSE, Cur-Pos]; 
Next-S = Next-S + 1 ; 
S-Cla-No = 0; 
Go to 20002; 




Return 
to caller; 



Cur-Pos = 
Position of 1 st 
zero in 

Owning-Pro-V; 



Cur-Pos = 
Position of 1 st 
zero in 

Owned-Pro-V; 



FIG. 24Z 



